.1987 DM 5.50 OS 48 SF 5.50 



titer 



Die User Zeitung 
fur Atari, Sinclair und 
Tl 99/4A 

Nr. 10/11 4. Jahrgang 



1 SPECTRUM 

Interface im Eigenba 
Hunter: Ein Spiel zu 
agram 



Fur Aufsteiger: 

rord II zu QUILL 
isic-Befehl: Repl 



Musikmit POKEY 
GRAPH ICS-9-Hardcopy 

:ket Man: 
Schatzsuche im AM 




H U t a Jakel tin intuorth G b E 

Hard- a, SoftunreuertrLeh 
f=$ Mar-^ehhnrst Z §=^| 



: ^onfat^. 23*32 Klein - HecKstMn "n 

■!<*>,.■*, Telefon: 04Z82 / 561 S <■-' ■hi,?* sJIX 



m 



J n Spectra 111 h Km II '".- 

I EUE TMbttDT 24?!- 

I tot Intii-fna tj Spectra* 17).- 



* - Ichlunt: «l(« liiciale lifkceAlreller aird.n .» lofn-t lit dt> wen SUP". DOS 3 ■ 

| o 

I 



3, "j OL ::; -s . ; ; ; .= ; p9 ."cps.taj-i " nir in.- - ' 

4 1 I So-di 3uper-:i- s ™ntrs ! 6 - -:sr,lrc-. :s .nti..-o u | 

j , . aL j :^n-j;i.- ..■: ,., % , e -;.;,,,,- Ee .-s. e ,„ E: ...., nur ;?).- | .-, i 



■ tll *« l 'SurtMIiskcentrillsr t 3,5" - L.ufuert 720 Mutt mchWertio M W.- 
Iirt tafltttiuiten nl 3,!" - DorMlnufutrk 2 » m (l»t ( intcnWfrtit! mr <4».- 

"■ ■■■■ I' ."l "'..I' ■ -Li. ■» --jip jr.*'. S :-c- ]r ,.M- --. J s,\jhn.' V ;??.- 

■ : - ' -■-■'■■ •'■■' -■ ■■ :'". ! 0-. .•■■: , .-.v:.^,-,,- ;.■ ;, t ...,,. ;;■::,.. 

1 SS'™ S 9 """'^* 1 "" 1 "* * :W q'" ''- : -«"-f" :i.n-.sr.-.,; e ■» j*.- OSar ioftuurs Si.- 

I IL Bl bid i «*■.>■»«-; 'ch du-ci Pj'.i-Dc-— "«tj«, ii j<'.jorru' a -:-:a"o™o iVer'borj «■- 

» H .I U " * "N e lQCh wanlUtf jN-VKigraieher lauft nur (it Zusntzsje.chii-, 

auf Epion kor»P. e-ucks-r ,.s gilt ge id „. DIN 12 - ;.,-,,,■ ,. j; :.-.*(,,,-■ !«.- 

I Ut«ini OL Surer FarbftMltir mr It).- OEP HI (Der SHU - Iprwnerl nur »,■ 

I 3,1- - Dlsketttnililiin tl Hhlt unfermtiert nit Qehouse, Netittil und htsthlulSBtln) .b »).- 

1 1,S" - htpel Diitilttion •! I 1 nhtt Mternaliert! at m.- 

O I Ntg: inn Super Video Dililllitiertr It* don OL 

Cartridges Stk.i 6.59 12 Stk . r 72.- J8 Stk . in CartHMS. - Boy IB.- S ! 

Cartridoi Bo« SB.- 3,5" - 56V j,.,,..-.;.-, B o< i,,.- '-.v.-..-, ■■*.- |gj 

iJl^Ksiassia Sills. iiSiil: IE IE Hi 



3 , / /b iitiUcT:-- -.. tg 



So^eranssbot : 5T5S 



Uritenti Uir lafortierm ueh ins Hailnnd !!! 
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VORWORT 



SINCLAIR 










klaine Seen g-e, 






Atari. Oder die Fractal-Programme fur OL und 

Beim Tl-Programm ist sngar eine vernunftige Grund- 

lagenerfclarung dabei. 

Ob es die fundierten Hinwe: 

Soundeizeugung auf dam Ata: 



prnfessionelle 
dec die hilf- 
neue achlaflos 






■zlichen "gut Byte" griiBt Sit 



(M^fa—^ 



COHPUTERSTUDIO 

KreusstiaSe 13 
SOOO HuocJeo 2 
Tel. (0S9I2679H 



INHALTSVERZEICHNIS Bei uns konnen Sie 
mitmachen 





Computer-Konlakt ist die Homecompulcrzeitung 
zum Mirmachen. Sie konnen bei'uns Programme ein- 
senden, Bticher besprechcm, Spielebesdireitxn. Tip* 
und Tricks schick L-n. i r.i^ii sicii-.j-i und Ihre Meinung 
sagen Wir haben fur alles ein offenes Ohr. Damil wir 
aberlhreEinsendungsdin;-;: :...:■.■:, , : ...■■.. ■ 
alles mil iechwn DinisjnzusKl-i. miisscn Sie folgende 
Punkte beachten: 

1. Ihr Brief sollie ein Anschreibcn mil Name, An- 

fc&fHt T 1&fclMi and EftwuaKfed 

2. Geben Sie genau an, welches Gerat Sie haben. 
Lauft das Program m cur inii Spcichererweitenjn- 
gen oder Zusatzgeriitcn , niQssen diese unbedingt 
angcgcben werden. 

3. Zu jedem Programm sollte eine Programm be- 
schreibung beilitgcn. Dine k.i.uj mil dcf Sdireih- 

Drucker gcsdiridvn 
iB 2 Zeilen beiragen, 
Aomerkungen einge- 



. Der Zeilcnabsc; 
ii[ noch Korrekluri 



-. Zu jedcm Programm gellOrt gi 

sling und eine Cassette oder Diskette. Wenn Sir 
aber keinen Drucker haben, reichi auch der Dalen 
irii.i^i . SpeicliL-ni Si? zur Sicherheil das Programn 
zweimal ab. Cassetted und Diskeiien khnri-n ivi: 
nur zuriicksenden, weiin Riickporto beiliegt. 

. Bcrichie, Spiel ebeschreibun gen unci Buchbespre' 
in^soii chenfalls zweizeilig geschrieber 




i! 6. WennwireinProgrammvonlhnenabdrucken.ver- 
|i gulen wir ein Houorar fiirrien einmaligen Abdruck 
£* und die Nutzung des Programme in unserem Cas- 

setlenservice. Die Hrihe ties Honorars riehtet sich 
55 nach der Langc und QuaiMt dis Programms. Wir 
fl vergviien im allgemeinen his zu 3IXI DM, fiir sehr 

gute Programme kann es auch mehr sein. 

2 7. MilderEinsendunggibtderVerfasserdieZuslim- 
inung zum Abdruck und erklarl, dafl er Urheber 
der Teste und Programme isl und das uneinge- 
schrankle Nutzungsrecht daran besitzt. Soilte der 
Einscnder Progran 



in Urheberrecht und kein Nutzungsrecht besitzt, 
ei Abdruck durcr. uns clwaige Sehudeiiier- 
iruche von seiten Dritit 



Die nachste Ausgabe von 

Computer Kontakt 

erscheint am 30.1 1.'87 



FRAGEBOGEN 




Fliegen Sie 
nach Paris! 



"Computer Kontakl 
genden Fragebogert 
700 DM. AuuMdem 



Fragebogen 
Computer Kontakt 
Nr. 10/11-1987 



3. Computer O A' 



i. WalcheZeitschrift 



6. Se« waon lesen Sle Computer Kontakt? 



iind Aufmachungnoeli 
konnen. Wif bitten Sit 

IreKen, desto grnaucr 



is Heft in Geslaitung 



'.u den CiewinntTn ^•■'■'■■!--ii M 

it trotzdem thte Wlinsche hei der Herstell 
er Konmkt" nnch besser beriickMChtigen. 
j 5 tder I5.1I.19K7. DerRechrswegin jus; 



i. VemiBrken Sie hier 

FragsnnichtauGern 



• ._L!_1_ 

isncLE rsurif curd "* i 

it Toolkit II , Discinta^oH am. tocht as [hrtn 1 eii 

ipeidieroiointai lit 8* K Speitter 

Ihra MS niw rl' ^irfurerwiWinp nrfwn uir in 7dili 



.tajstidmijiter (* Big. I 

it nincle i*idsrBiieilsrti>3 </ev . 

In tottreiluia mm jpttrfk* fir u. 

DXS*ETTE»9X[EN 



OL PHXRHHIE 






01 49.68 



j,r i! St** . 

urtriooe i it. M 28.88 

CB-tr-due Em Bl 18.59 

Ottnaa Bo, •■• B Hrir<3r 01 63.58 

Ccrtr-iv 6» •■! X Cortf.^e M 138JS 

Fbvnv 



yLcmncow m m. 

KSBBJUIOCJO.... 01 " 

uspiocwa on 

psscfi itncrcc m 

BKBX «1 

DEaW PKISU. HI 229, 

E1H 00) m 

pkfes uwi ^^arca • ^tooo m zsse 



Stir *:8 t.l de/*),» h« 



aoeeoaw artikb. 



Sarin* C3 tol«M.M* 

Sf*ctn» l» 2t ««-™t. 

" - ' * inter'nce ft*.s mf fWffl^e 



JIPOSOFT iKSUPPSTK. 9 
4M0 MUSS 21 

■ Fr int. CO. 17 j« - 22 M , Sn S.BB - li.84 Ihr. 

mnstai sind Bestel linger* 24 h tuf Bird ibglidi 

■ Ucrsatl I SflbstitolLiig rur wtfi llereinlwuig I 



TEL:B2197-1 23 





6 CLUBS 


Computet KontBkHQ-11/87 


Baunatal 


--S- 










irweile Uber 


bSSiSm 










W8to^^r?S^.c n i| B 


Luneburg 














*i,r= i.u .1=,-. [IsNiflka,::^- 


S^aTT X1J> ^"- ""^ 






































n hidei u„,=rs CliHaeii- 


Jcllcm Chbmirglied wild aa- 


deo. Quelle Abbott ume- 


l^s^S^wolfcnde 






fmden "udTl 1 M 


Aaimil^dMaKhincnsprache 



Spectrum 

User Club 

Wuppertal 

¥ 

In formation en erhalten Sie (gegen 

Einsendung von DM 0.50 Riickporto) von: 

Rolf Knon-e, 

Postfach 20 01 02, 5600 Wuppertal 2 



SPECTRUM* SffiSKS *SPECTRUM 



ff!f H: P -. ! :UJ IffWW!irg? HIMJ ! l. ! . l - ! J ?ffir- 



INDIVIDUAL 
SOFTWARE 



CK 

DtelteerZattung *»t/se_» 
flir Atari, Sinclair t ^4fc£r*?*G 

J r ' 9 »/«4 



Bestellschein furCK-Hefte 




g SINCLAIR 



■*f\ 



f 



5 "■&»' «•• 



sinc=laii— 



Hallo Freunde, 










ll'rtr 


";! ''"' 


" 1 


Bewilders makaber »ird 




Barbarian 




Spk 




Vi^l imim S|i ,-U: 


wcimtMniicmGc^mi 








































































































bEFiBii- 


gebl 


una in, 


mcrsoweiler. 


sctlleirilJenKurrier-cg.DB. 
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SINCLAIR 9 



Gunrunner 



Greyfell 



jn-SpM derMillcMas- 



Hydrofool 



Reparatur- 
Schnelliiienst/ 
Ersatztelle fur 

Sinclair Spectrum! 


■WT^TTyTB 


lalgende Compulersyslenie 

- COMMODORE 

- IBM 

- MSX 

- SCHNEIDER 

- SINCLAIR/ 
SPECTRUM 


Rulen 
Sleunsan! 


ZX-Spactrum 

C&M Meyer 

RariserstraRe 52 

4060Viersen1 

^■02162/22964 


h^j" T J .. . jiiTT^M 



licilet urn cin Ubyrimh- 






Kinetik 



Anleitung zum Cracken 
mit Hilfe von Tasword II 




Computer Kontakt 10-11/B7 



SINCLAIR 



Video-Interface fiir den Spectrum 




ISA* — —\ Tl.T 
6.7A»-*H 



I IMPULSAB 
1 ] TRENNUNC 



BLOCKSCHALTBILD 



■ I 1 T ■ U 



cr* 



SINCLAIR 



•*0 ■ fliB V 
BH E2H3 Q ,3 J H|/-<-^ jns— > . J. 
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SINCLAIR 13 



llllplil'l'I'.'IlL' ^'■,l Cii. n-,,^ S 



Die neuen ISO-ROMs 



v, Vdkaj' [>i i!:s M MBER-f'ii»--i.i;ion. 



Nachtrag zu Easy Fonts 



Maschinencode (MC) 



;::;;:, 


Zto""— 


: 


§ 


NMl-SchalliTcu 
ill i- v er Ki:j:u;ia 



I ■.!■! ili'k mil ■!■! ■-■"I I ■■: ,, ' M 



Ladeprogramm (Basic) 



u SINCLAIR 



Digitalisierte Bilder anf gKwESE"- 
dem Spectrum "'SS™" 1 * ' 



^AK-SSScSi-rf JE-'te I 
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tertaoe mil e*0K-Ho( 




Wagner 
Computer 



~K,S5K3S=...„,.. . . .7,.- Sags' , , 

'.= ^Piwf-nopiv-Loiiiwert . a °B»»^ !^'!S1 B ?^I ! ^ 

fla _ MVM-EmutatwVZ.OO 

Wr^sjrSpirtrulnlZBi "* lhteh(p|||^" 3Mi """ T ' 

DlielplB Diikcontroltar *" ^(j^ip™^, j^""' 5 ""' i " 

rwtiiiiM iiiii, -,,u. 



Computer Bauer 

Schwanseestrafie 43 ■ 8000 Munchen 90 ■ Telefon089/690B767 



SINCLAIR- 
SOFTWARE 



Anwenderp rogra mme 



: :-. ■ ■ ■ ".-.■■ : ' ■ 

Quick Layout 



SINCLAIR- 
HARDWARE 

Spectrum 



Centronics- Port 



BUCHER 

ZX Spectrum 



Soectaim spektakulilr . 



Allele fur lhn:r-. :.■■ 

Biicher allgemein 



S1NCLAIR- 
ERSATZTEILE 



Jetzt umstsigen 

auf einen PC! 

So prei swert wie r 



SSST SSSS MONITORE 

Speelffjrn-Plus-Gsnause I mbn/sw DM 220.M 

milTaslatur DM99.00 * RG&PG8I, FiuOe DM79B.0O 

ACHTUNG REPARATURSERVICE ACHTUNG 



DASSUPER- 
SCHREIBPAKET 



«, eetriEbssyatem M 



Der Alleskonner fur MC-User J^SL, 



Das Entwicklungspaket SYS 




SPECTRUM PASAJUR 


r iiiiiu^ 


x pin ■ 


m u <4i&y& 1 ■ 1 


. i 


l~l\ 




\ 


ssi&'x """""'' "STT-is 







SINCLAIR 



Assemblertips fur den Spectrum 

Flachenf ill! algorithmic 




is SINCLAIR 
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200 PRINT "fehlerha-ft!": STOP 

300 let X0=isb: let ra=B3 

310 LET Rl=30: LET R2=80 
3ZB LET N=7 

330 LET X1=R1: LET Y1=0 
340 PLOT X0+X1,Y0*Y1 
350 LET E=(PI+PI)/N 



360 F 
370 L 



TO r 



-.51 *D 

3S0 LET X2=R2#C0S Dl 

390 LET Y2=RZ*SIN Dl 

400 DRAW X2-X1.Y2-Y1 

410 LET D1=I*D 

420 LET X1=R1#C0S Dl 

430 LET Yi=Pl#SIN Dl 

440 DRAW X1-X2,Y1-Y2 

450 NEXT I 

460 CIRCLE X0, YB, 10 

470 PRINT USR 64700, X0-10.Y0-10 

480 STOP 
1000 DATA ■I422418814224188cd75-I 
ca*573-f21b4+e06083dbe2328031 1001 
8 1 0* 7« d 6 2 39ed 4 b£3 3c e d 4 2t»d 323B060 
1 d 8+ f 09 380bt f 03 r da 22d78 a 779c 8c f 
4cb3ccbldcb3ccblde5d5cde6*cf eb03 
0edc6105fd5cde6fcdl57d9cl210040e 
5ddel78a72809ed5b659d- 
1010 DATA ■5rd5edb0ddeldld921004 
006034 ac b39 1 0* c 09 d d0P4 b 1 e b* 7b b 92 
805cd43-fdlBf7cd7d*ded7b3d5cc3761 
b c 5 e 5 24 7b e 607200e0 1 20000 92 S7be63 
+28047cd607671dcled42e509cldd09c 
Ic9c5e51t257be60720ed01e0 
5e63f28e37cc607671875" 



1020 DATA *ddd91bcb7ad92B0el47ae 

6077a200323dd23d913d9c94adde579a 

72B3ae60?200+ dd cb007e2030d debt f 4 

6202a0ddd2bdd7i»00a7200679e6f84* 1 

8df79dd46002fe607d6*fcblB3d20*b3 

80b 0d c b 1 B30f b0 c 79a6072Bc 2 d d e3 1 80 

4 7aa72B31 dd 7e00a7201 9 ■ 

1030 DATA "Sadd237aq603e6+85718e 

e7add4600e607280637cb 1 03d Z0f bcb7 

8200fl4cbl030fbl37«e607Z004dd231 

8cbddel7abl2006dd7e00a7280579bac 

a84fd7de6e06f79cbl*cb3*cb3f 856*7 

be607d921b4tc856fd942c5e5dde506f 

*79e6072803cb3B3d201C 

1040 DATA "fb7ae607281979e6f892f 

e*938117a2*e6073rf3cb383d20fb*lc 

b203d20*bdd7e00b0dd7700d97ed9a04 

77eb07723dd2379c608380ce6f84+7aa 

72eb8b92B0230b3ddelelcl317bfell3 

Bl bed 43* dc3cd 7d* dc 1 a72807b838-f 57 

8a728f Ic541cde4-F eclbfl' 

1050 DATA *cd64+d7b*ebf 3020c d64f 

dc3cd7dfdtla72807b838+57Ba728*lc 

d e 1 f ec d43-f d 7aa7ea3e+ d 1 384 + d 7aa72 

008cS01200009dd09clcdelfel8e77ab 

8c87ac3e3a7200I2b7d»6e06*781+cb3 

*cb3fb56-fcla7ed42*509cldd09cl30c 



939- 

9000 SAVE "f il 

9010 STOP 

9500 SAVE *"ii" 

92,391 

9510 VERIFY *■ 

9320 STOP 



■ CODE . 



Sourcelisting 
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SINCLAIR i. 




SINCLAIR 




Optimale Hardcopy 
mitGLPU 



Basic-Listing 



Computer Kontakt 



20 DEF FN A IX: 
<X»>" 



=CODE XS-4B-39* 



30 CLEAR 2999? 

40 LET A-30000: REM flnfangsaflr 

45 LET A1«A 

50 PRINT -BLP-Il-Har-dcDpy-Raut 
ine wird" , "erzeugf ' ' 'Ei nen Auge 
nblick bitte. . .* 

60 LET AS="df-fe2c3e00Z008cd8il 
ccd?4ieefiS332925t2i00iB22933c262 
022933cdffe2c2044cd791ccd941e3Z9 
45c a72820f 5cd 94 1 «32935cc 1 80382bf 
e 1 93027d * f e2c2024cd 79 1 1 c d94 1 e329 
65ca72007ed7b3d5cc37filb*5cd941e3 
2 95 5 re 1 803804* e2 1 3802 " 

65 LET A*=A*t"c*0a3e04cd01163e 
0dd73elbd73e41d73e08d72a633c34SQ 
d9*d6639fd6e3b*d465ce5c57ce6070f 
0f0-Fb56f7ce618c64067119e3c0608fd 
cb58562804242424247el21cfdct)584e 
2808 1 2 1 c 1 804 1 89al 8c 124 1 0ec 1 6082 1 
9e5r06085ecbi317732cl0-f8* 
. 70 LET A*=A*f*dcb587e2e012fd9 
7723*dcb5a4628027723d91520ddclel 
2cl0a3d92b7ea728+bed523819233elO 
d73e2ad73e05d77dd77cd71al3d72b7c 
b520f83e0dd73e0ad 721 925c rb«e2808 
Cb56cb<16239ecb96td3459fd355a2094 
3eibd73e41d73e0cd71S87- 

80 LET S=31252 

90 LET X=16#FN A(A*I1)>*FM A(A 
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100 


POKE A 


j, 


LET S-S-X 


110 


LET M 


=AS(3 1 ): LET A=A+1 


120 


IF A*) 




THEN GO TO 90 


130 


IF S THEN PRINT -Fehlei- in 




STOP 








PRINT 






150 


PRINT 


B 


tto Steuer-cado tue 




inaehlen:" 


lia 


PRINT 




ESC "■*■■ 5 (fue 


r ALP 1 1 ( ■ 






170 


PRINT 


? 




130 


INPUT 






190 


IF C=2 


THEN POKE A1+242.C0D 




: POKE 




•946,0 


200 


PRINT 






210 


PRINT 


D 




tine 


iat',- 


m 




rch PRINT L 




"iAl, -Oder PRINT U 


SR ■ 






'"Das Basic-Progra 






neu geloescht we 


rdon 








220 


PRINT 




e Ausgabe er+olgt 


uebe 




#4, der ais Binaerka 


nal 








230 


STOP 






1000 


SAVE * 


5LP2-Ha 


299 









Logo - kki n. aber gemein 




Logolader 



S8 ftPf-fH'.. 

30 READ a: POKE (62999+i: 
40 PRINT AT 5,10; (62999+: 



100 NEXT 1 

105 PRINT ' ■"SCHRIFTCODE UND KU 
SICCODE SAVEN ( 1024 B 

ytes) SAVE: ""logocode"" , 63 

000,1024" 

110 SAVE "logo code "CODE 63000,1 
024 

115 CLS : PRINT "OKAY. JETZT HI 
RD HAUPTPROGRAMM GELADEN. 

120 LOAD "LOGO" 

300 DATA 1,0,3,33,20,3,1.7,1,0,2 
29,213,197,205,181,3,193,209,225 
,43,62,0.11,104,32,240,185,32,23 
7,201,0 

301 DATA 6,5,197,1,30,0,33,70,1 
,17,8,0,229,213,197,205,181,3,19 
3.209.225.237.82,62,0,11,184,32, 
239,185,32,236,1,30,0,229,213,19 
7,205,181.3,193,209,225,237,90,6 
2,0,11,184,32,239,185,32,236,193 
.16.200,201 

302 DATA 0,0,0,0,0,0,0,0 

303 DATA 8,8,8.16.16,0,16,0 

304 DATA 108,108,36,72,0,0,0,0 



SINCLAIR 



305 DATS 68. 254, 68, 68, 68, 2! 


306 DATA 16,60,80,56,20,120,16 


307 DATA 68.164,72,16,36,74,68 



58 



I DATA 56,100,162,226,162,: 



308 DATA 48,72,32,84,72,52,0,0 

309 DATA 24,24,8,16,0.0,0,0 

310 DATA 16,32,64.64,64,32,16,0 

311 DATA 16,8,4,4,4,8,16,0 

312 DATA 0,84,56,124,56,84,0,0 

313 DATA 0,16,16,124,16,16,0,0 



,56,0 

350 DATA 252,82,114,92,112,80,2 
48,0 

351 DATA 55,100,162,234,170,100 
,58,0 

352 DATA 252,82,124,88,115,82,2 
42,0 

353 DATA 124,162,160,124,10,138 



315 




,124,0 
























































325 










24,0 


327 












329 








DATA 12,24,48,96,48,24,12,0 
















333 










58,0 


7,128,126 


























337 










3,0 








339 
4,0 
340 










341 






342 






343 




373 DATA 0,0,122,196,196,124,7, 


344 










,199,0 


0,0 






















,195,0 
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378 DATA 24,24.24,24,24,24,231, 


379 DATA 0,0,108.210,210.210,19 
5,0 

380 DATA 0,0,220,226,194,194,19 
5,0 

381 DATA 0,0,124.198,198,198,12 
5,0 

382 DATA 0,0,220.226,194,226,22 
1,192 

383 DATA 0,0,118,206,198,206,11 
9,6 

384 DATA 0,0.220,226,192,192,19 
2,0 

385 DATA 0,0,126.192,124,6,253, 


386 DATA 43,48,252,48,48.50,221 
,0 

387 DATA 0,0.98,196,196,196,123 

388 DATA 0,0,194,100,104,112,96 
.0 

389 DATA 0,0.210,210,210,210,10 
9,0 

390 DATA 0,0,198,104,16,40,207, 

391 DATA 0,0,194,194,198,122,3, 
252 

392 DATA 0,0,252,24,48,96,255,0 

393 DATA 54,0,122,196,196,196,1 
23,0 

394 DATA 108,0,124,198,198,198, 
125,0 

395 DATA 54,0,98,196,196,196,12 
3,0 

396 DATA 28,54,102,100,108,102, 
226,108 

397 DATA 60,66,153,161,161,153, 
66,60 

Hauptprogramm 

10 FOR i=0 TO 14: PRINT AT 0,i 
; IKK 0;CHRS 144: NEXT i: FOR i= 
1 TO 17: PRINT AT i,14; IKK 0;CH 
RS 144: NEXT i: FOR i=13 TO ST 
EP -is PRINT AT 17, i; INK 0;CHRS 
144s NEXT i: FOR i=16 TO STEP 
-1: PRINT AT i,0; INK 0;CHR$ 14 
4: NEXT i 

20 FOR 1=1 TO 16: FOR j=l TO 1 
3: PRINT AT i,j; INK 2,-CHRS 144: 
NEXT j ; NEXT i 
50 RESTORE 70: FOP. i=0 TO 86: 
READ pl,p2: IF i/3-INT (i/3l<>0 
THEN PRINT AT pl,p2; INVERSE lr 
CHRS 32 

55 IF i/3-INT (i/3)=0 THEN PR 

INT AT pl.p2; INVERSE 1:CHR$ 79 

60 NEXT i: PRINT AT 10.7; INVE 



4.11,4,12,4,13,4,13,3,13,2,13,1, 
14,1,15,1,16,1,16,2,16,3,16,4,11 
, 5, 16, 6, 16, 7, 15, 7, 14, 7, 13, 7, 13, i 
.13,9,13,10,14,10,15,10,16,10 

75 DATA 16,11,16,12,16,13,15,! 
3,14,13,13,13,12,13,11,13,10,13, 
10 , 12 , 10 , 11 , 10 , 10 . 9 , 10 . 8 . 10 , 7 , 1( 

80 DATA 7,11,7,12,7,13,6,13,5 
13,4,13,3,13,2,13,1,13,1,12,1.1: 



95 RANDOMIZE USR tl: GO SUB 10 

100 FOR i=l TO 30 

110 IF i=10 THEN PRINT #0;AT 

ANDOMIZE USR t2 



) BEEP .1,: 



BEEP .!,• 



180 FOR k=30 TO 1 STEP -1 

190 IF k=25 THEN PRINT #0;AT 
,0; M PRESS ANY KEY": LET key=l 

200 IF k=10 THEN PRINT #0:AT 
,0;" ": LET key=0: R 

ANDOMIZE USR t2 

210 IF key=l AND INKEYSO"" THE 



GO 1 



700 



220 POKE f!k).198: PAUSE 12 

230 PAUSE 10: POKE f(k),56 

240 NEXT k 

250 BEEP .1,1: BEEP .1,4: BEEP 
.1,5: GO TO 100 

500 DATA 22561,22657.22753,2284 
9,22852,22948,22945,2 3041,23044, 
23047,22951,22954,23050,230 53,22 
957,22861,22858,22762.22765,2266 
9,22573,22570.22666,22663,22567, 
22564,22660.22756,22759,22855 

710 BEEP .5,40: LET fea=l: POKE 



fife; 



,198 



';AT ) 



720 PRINT 

, wir konnen loslegen. 

er soil anfangen ?"™ 1 
l=Coroputer Oder 2=Du" : LET 

GO SUB 8710 

730 LET eS-INKEYS: IF eS=' 
eS>"2" OR eS<"l" THEN GO 1 



740 GO SUB 8750: GO SUB 8400 

750 IF S$»»2" THEN LET com=0: 
PRINT AT 18,0; INK 7;"Na gut, Du 

Klugscheisser , dann fang mal a 
n.Zeig' was Du kannst . " ; LET ze- 
2: GO SUB 8710: GO SUB 8900: GO 
SUB 8600 

760 IF eS="l" THEN LET com=l : 
PRINT AT 18,0; INK 7;"Das war De 
in Fehler. Du bist schon so g 



ange 




zt 


n:": 


LET ze-3: GO SU 


B 8710: 


POKE t2n 


.0,3: RANDOMIZE 


USR 




POKE t2n 


.0,1: GO SUB 890 


0: LET 


*=1 


SO 


SUB 8 500 


800 




sim 


8 900 


: GO SUB 8750: G 


O SUB 8 


(HI 






810 


I ill 


SHI 


830( 


: IF fea>=30 THE 


N GO TO 90 






820 


IK 




THEf 


PRINT INK 7;A 


T 18 


OS 


Du bist 


IB Zug . . . ™ : LET 


ze-1 


LET c 


1 


GO SUB 8700: GO 


SUB 


8600: GO SUB 8800: PRINT AT 


18, 


7* 


: GO TO 


I0O 


825 


IK 


fpa 


-30 


THEN GO TO 900 




IK 


NUT 




7HEN PRINT INK 


7;AT 18,0; 


So, 


.ch bin an der R 


eihe 




: LET ze 


=1: LET com=l; L 


ET fe=4 


fn 






840 

LET 


n= 


NT = 


3" A 

RND* 


ND fea<20 THEN 
31+1 


850 


ir 


eS- 


2" J 


ID fea=27 THEN 


LET 










360 


IF 




2" AND f 


LET 










880 


t;<; 


SUB 


370( 


: GO SUB 8500: G 


O TO 


80 










IK 




THEI 


PRINT AT 18,0; 


INK 


'h 


Nil, 




or doch klar, d 


a£ i 


h 


da* 


Spje 


L gewinne. Tja, 










'. wis mich hast 






mal 




e Chance.. .": LE 




4: 


POKE t2- 


L0,2: RANDOMIZE 


USR t2: 




t2+10,l: RANDOMIZE 


USR t2: 




t2+ 


10,1: GO SUB B70 



910 IF NOT com THEN PRINT I 
B,0; BRIGHT l;"Also, Ahh, " ; 
JSE 100: PRINT BRIGHT l;"Ja, 
so uie soil ich sagen, Ahhh . . 

PAUSE 100: PRINT FLASH 1;" 
Du hast gewonnen 

920 PAUSE 100: PRINT #0;AT C 
"Noch ein versuch ? (j/n):" 

930 LET zS=INKEY$: IF z$="" 
(zS<>"n" AND zS<>"N" AND zS<) 

AND ZS<>"J") THEN GO TO 93C 



erKontaki10-11/B7 



LS : GO TO 5 

950 RANDOMIZE USR 4721 
10 00 REM INFO-REGELN 
1010 LET y=0: LET K-16: PRINT AT 

y,x;"SPIELREGELN";AT y+l,xf "==» 
■"->—";« y+3,x;"Die Spieler" 
;AT y+4,x;"ziehen abwech-";AT y+ 
5,x;"selnd vom Start-";AT y+6,x; 
"punkt aus 1-3";AT y+7 , x: "Felder 

vor.";AT y+9,x,-"Her zuerst das" 
;AT y*10,x;"Feld Z erreicht , " ;AT 

y+ll,x;"hat das Spiel";AT y+12. 

1020 RETURN 

5999 PAUSE 500: STOP 

8300 REM POSITION 

8310 LET fea=fea+fe: FOR g=fea-f 

e TO fea: IF gofea-fe THEN BEE 

P .02,0: BEEP .02, -5 

8320 POKE f(g>,71: PAUSE 10: POK 

E fig), 56: PAUSE 10: NEXT g: POK 



: ftf. 



,198 



) RETURN 
8400 REM ZEILE 
8410 PRINT »0;AT O,0;lS( TO 64): 

RETURN 
8500 REM ZUG COMPUTER 
8510 IF com THEN GO SUB B750: P 
RINT AT 18,0; "loh ziehe ";fe;" F 
eld"+("er" AND Ee>l) : BEEP .05,2 
0: RETURN 

8600 REM ZUG MENSCH 
8610 IF NOT com THEN GO SUB 875 
0: PRINT AT 18,0;"Wieviele Felde 
r (max 3] «illst Du vorgehen 7" 
8620 LET zS-INKEVS: IF zS="" OR 
zS>"3" OR z$<"l" THEN GO TO 862 

8625 IF VAL zS+fea>30 THEN GO T 

O 8620 

8630 GO SUB 8750: PRINT AT 18,0; 

"Okay, Du ziehst also ";z$;" Fel 

d"+("er" AND ZS>"1") 

8640 LET fe=VAL zS 

8690 PAUSE 100: RETURN 

8700 REM OVERPRINT 

8710 PRINT AT 18,0;: FOR i-1 TO 

ze*32: PRINT OVER 1; BRIGHT 1;" 

";: BEEP .002,10: PAUSE 2: NEXT 

i: RETURN 
8750 REM KOMMENTAR LOESCHBN 
8760 PRINT AT 1S,0;1S: RETURN 
8800 REM KOMMENTAR 
8810 RESTORE 8820: FOR i-1 TO IN 
T (RND'llltl: READ kS.ze: NEXT i 
8820 DATA "Noch so ein Zug und i 
ch habe gewonnen.",2, , 'Du glau 
bst doch wohl nicht im Ernst, 
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dass Du gewinnst, oder ?",2,"Wie 


9000 SAVE "IjOGO" LINE 9050 




9002 POKE 23736,181: SAVE "logoc 


doof sein",2,"Han sieht's itial wi 


ode'XODE 63000,1024 


eder: Computers ind doch intellig 


9020 STOP 




9050 CLEAR 62999: LOAD "logocode 


bloder Zug !",l,"Und Du meinst . 


"CODE 


mit dem schwach- sinnigen Zug ge 


9060 POKE USR "a"+0,255: POKE US 


winnst Du ???",2,"Na gut, wenn D 


R "a"+7 r 255: POKE USR "a*+l,313: 


u es so willst . . . " , 1, "Key . Momen 


POKE USR "a"+3,213: POKE USR "a 


t mal, das ist unf air ! " , 1, "Ginge 


"+5,213: POKE USR "a "+3,171 j POK 


Dummheit in die Lange , kSnnt 


E USR "a"+4.171: POKE USR M a"+6, 


est Du den Maim im Mond dieNsse 


171 




9070 LET key=0: DIM f(301: RESTO 


Ich spiele nicht mehr mit.", 2 


BE 500: FOR i=l TO 30: READ f(i> 


,"ICH LACH 1 MICH KAPUTT...",1 


: NEXT i: LET 1$="": FOR i-1 TO 


8830 PAUSE 200: RETURN 


4-32: LET 1S=1S+" ": NEXT i 


8900 FOR f=l TO 300: NEXT f: RET 


9080 LET tl=63000: LET t2=63030: 


URN 


POKE 23606.25: POKE 23607,246: 


8999 STOP 


30 TO 5 
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Listing 1 








i 


REM listing 


! 






10 


POKE 23658,8 








799 
SOO 
810 


REM EINGABE 
PRINT • "Was 
INPUT LINE 


jetzt 
zS 


,; 




820 










830 


GO SUB 900 








840 


GO TO 800 








899 


REM PARSER 








900 


IF LEN zS=0 




PRINT 














RN 










905 


IF zS(l)'" " 


THEN 






S(2 TO ) : GO TO -9 








906 


IF zSILEN zS 






LET 










300 


910 


LET E=0: LET 








TO LEH zS 








920 


IF zS(i)=" " 




LET 




LET 
930 


Ep^SpTl 

NEXT i 








935 










940 


IF sp>l THEN 




T "Bi 








i Woerte 




. " : RETURN 








945 


IF sp=0 THEN 


LET 


aS=*S 


GO 


950 


LET a$=z$( TO s-11 


LET 


b$= 


960 
970 


Zm» "°° 
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999 REM INTERPRETER 
1000 IF LEW aS=0 THEN RETURN 
1010 LET zeile=9000+[CODE aSUI 



1020 


RESTORE zei 


le: READ a 






IF a=0 THE] 


PRINT "let 








it. 


: RETURN 






1040 


LET gosub" 






1050 


FOR i=l TO 


a: READ zS.: 




LEN 


aS<=LEN zS 


THEN IF zS 




LED 


S)=aS THEN 






1060 


NEXT i 






1070 


IF gosub^O 


THEN PRINT 






e das Wort 








■ RETURN 






10 SO 


GO SUB gosub 




1090 


RETURN 






1399 


REM braten 






1400 


PRINT "Sie 


wollen etwa 


bi 


1410 


RETURN 






149S 


REM drueck 






1500 


PRINT "Sie 


haben DRUECKEN 



1510 RETURN 

1599 REM drehen 

1600 PRINT "Drehen? Has denn dre 

1610 RETURN 

1699 REM fangen 

1700 PRINT "Jemanden zu Fangen i 

1710 RETURN 

1799 REM gehen 

1800 DATA "Bitte, gehen Sie doch 

1810 RETURN 

1899 REM nehmen 

1900 PRINT "Sie wollen also unbe 
dingt etwas nehmen?" 

1910 RETURN 

8999 REM NQERTER 

9000 DATA 

9001 DATA 1,"BRATE",1400 

9002 DATA 

9003 DATA 2, "DRUECKE" , 1500 , "DREH 
E",1600 

9004 DATA 

9005 DATA 1 . "FANGE" , 1700 

9006 DATA 1 . "GEHE" , 1800 

9007 DATA 

9008 DATA 

9009 DATA 

9011 DATA 

9012 DATA 



9013 DATA I,' 

9014 DATA 
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i!KI Hr^ii,-,.,,:,^ \,:Mt- 



Listing 1 



1 NX BUNTER Listing 1 

10 1M attr=56: LET liv^S: LET 
pll=l: LET pl>3 

20 LET scr=63891: LET 12F63810 
: LET bor=63846: LET rep-63871: 
LET aane*«942: LET char^37n: 
LET col=63764: LET W1-63780 

30 RESTORE 40: FOR a=USR "a" T 
USR "b"+7: READ b: POKE a,b: H 
EXTa 

40 DM1 255,254,252,248,240,22 
4,192,128,1,3,7,15,31,63,127,255 



110 KJ 



. I 



TAT 



4,10; IMK6; ,, BUHTER" 
120 PRINT AT 6,7; DK 4;"Copyri 

nht 1S87 by";AT7,8; INK 5;"Ger 

bard Plietscb" 
130 PLOT 46,148: DRAW 155,0: DR 

AX 0,-16: DRW -155,0: DRAW 0,16 

.. ::-::_..": PRINT AT 0,0; 
NK 2; PAPHt 7;a$( TO 32);AT 1, 
aSIS TO I, -AT 9,0;aS(2 TO );AT 



160 PRINT AT 12,5;"1 
pieler 1";AT 13,5;"2 
ieler 2";AT 14,5;'!, 

Leben";AT15,5F ,, 3 



0: EHAV 0,81: MAW -1,0: DRAW 0, 
-HI: PLOT 128,0; DRAV 0,46: WAV 

-1,0: DRAW 0,-46: PICT 0,46: DR 
All 255,0: ROT 0,81: 1 

DK7 

170 FOR *=20672 TO 20703: POKE 



150 PRINT AT 14,26;"— > ";liv 
195 IF nl2<>3 THEN PRINT 10,-AT 
1,0; INK 5;"C — > 2-Plajer Oias 



200 LET jpxH-(2 AND x-2): IF 
-1 THEN GO TO 220 

210 PRINT AT 21,1;" 
": GO TO 230 

220 PRINT AT 21,1; ("Kenpslm" 
ND pll=0H ("Sinclair Joy 2" AND 



pll=l>- 
=2) 



s (3,A.z,: 



rr AT 21,17; ("Kaipston 
" AND pl2=0] + l"Siiclair Joy 
1" AMD pl2=l>+("Keis (o,K,N,H>" 

and pl2*2K("aHPura< ■ and 



pl>3) 

240 LET uS=INKEfS: IF i$="l" ra 
EN LET pll^dl+l-(3 AND pll=2) 

250 IF uS^'2" THEN LET pl2=pl2 
+1-14 AND pl>3) 

260 IT uS="l" THEN LET li?=liv 
+l-{9 AND liv=9) 

270 DT uj^'s" TBBI GO TO 300 

275 IF uS="c" THEN IF pl2<>3 T 
HEN GO TO 4000 

280 GO TO 190 

300 LET lw=0; FCKE 65013, pll: 
POKE 65014,pl2: LET so=0: LET I! 



-llv 

305 IF pll* AND pl2=0 THEN 
S : PRINT AT ll,0;"Z»eiial K, 
ten isC iraDealicb!": BEER 3 

GOTO 100 

310 IF INKElS="s" THEN GO TO 3 
10 

400 US : LET adr-64019rt9*lev: 

GO a» 9010: POKE 63885, In: FOX 
E 63886, hi: RANKKZE USR rep 

410 LET anz^BS 55260: POKE 6E 
Q03,PEEK 55256: POKE 65004.PEEK 
55257: POKE 65005, PEEK 55258: PC 
KE 65006, PEEK 55259: RANOMZE U 



19,0;"Ievel: ",-lev*l'"] 



SINCLAIR 29 



455 IF a$="*" THEN GO TO 1000 

460 IF a^'o" THW 1CT attr=at 
tr-1: IF attriO THEN LET attr=l 
27 

410 IF aS="h" THEN LET attr=at 
mli IF attr>127 THEN LET attr 
•0 

430 IF aS^'s" THEN 03 TO WO 

490 GO TO 420 

500 LET f=USR gane 

510 LET sc=se+10*(lfw+l)Manz-P 
EEX 55260 ) 

520 IF fN3 MHI 00 TO 2000 

523 FOR t=l TO 10: POKE 23296,7 
! RANDOMIZE USE col: PAUSE 1: FO 
KE 23296, attr: RANDOMIZE USR col 
: PAUSE 1: HECT t: IF DBEYSO™ 

THHI GO TO 523 

525 RESTORE 600*(lev-4*IOT (lev 
/4>)"10 

526 READ u: IF u-1 OR INKEYSo 



TO 526 

528 FOR z=l TO 13: NEST z 

529 GO TO 526 

530 LET li=4i+ll HMD lev/ZOUJT 
(lev/2)): LET sc=scrt000: LET 1 

sj=1s»*1: IF 1ct=14 THEN IB le 



-10,0: DRAV 0,20: DRAW -10,0: B 
RAH 0,-40: DRAM -10,0: DRW 0,50 
1050 PICT ¥+14O,!ttU0: DRAW 30,0 
: IRAH 0,-10: DRAW -20,0: DRAW 
,-10: DRAH 10,0: DRAV 0,-10: DRA 
V -10,0: DRAW 0,-10: DRAW 20,0: 
DRAH 0,-10: DRAV -30,0: DRAV 0,5 

1060 PICT y+10,**50: DRAH 30,0: 
DRAH 0,-50: DRAW -30,0: DRAH 0,5 
0: PLOT y+20,x*40: DRAW 10,0: DR 
AH 0,-30: DRAH -10,0: DRAV 0,30 
1070 PLOT yt50,x«0: DRAW 10,0: 
DRAV 5,-20: DRAH 5,20: DRAW 10,0 
: DRAW -15,-50: DRAH -15,50 
1080 PUTT yt9C,xrtO: DRAW 30,0: 
DRAW 0,-10: DRAW -20,0: DRAW 0.- 
10: DRAW ) 



540GOTO400 


















,2,0,-1 
620 DATA 7 


47525 








0,0,-1 

















■: DRAHO. 



i: DRAW 21 



3060 NEtT a 

3070 FOR a=15 TO 2 STEP -1: POKE 
23296, a: RANDOMIZE USR bar: B 
HKEYSO"" THEN RETURN 
3080 NEK a 
3090 GO TO 3050 

3100 DATA 8,0,6,0,4,0,2,0,0,0,5, 
2,10,4, G, 4,6, 4, 4, 4,2,4 
3110 DATA 8,9,6,9,4,9,2,9,0,9,9, 
11,10,13,8,13,6,13,4,13,2,13 
3120 DATA 8.18,6,18.4,18,2,18,0, 
18,1,20,10,22,8,22,6,22,4,22,2,2 

3130 DATA 10,3,19,5,17,5,15,5,13 

,5,11,5,12,7 

3140 DATA 18,12,16,12,14,12,12.1 

2,10,12,19,14.15,14,11,14,20,16. 



DRAHO. 50 
1090 PLOT y+130,SW50: DRAV 30.0: 

DRAV 0.-30: DRAW -15,0: DRAV 15 
,-15: DRAW 0,-5: DRAW -10,0: DRA 
W -10,10: DRAW 0,-10: DRAW -10.0 
: DRAW 0,50: PICT ytl40,Jtt*>: DR 
AV 10.0: DRAW 0,-10: DRAW -10,0: 

DRAH 0,10 

1100 IF TJKEISo"" THEN GO TO 1 
100 
1110 PRIST *0:AT 2.10; INK 6:"SC 

1120 HR Pi TO 8: NET z: IF IN 
KEYSO-" THIN GO TO 100 

1130 mror "": for z=i to 8: nex 



3150 DATA 
1,10,21, V 



OHIO 



1000 GO SUB 9000: BORDER 0: CLS 

1010 LET x=28: LET y*42 

1020 PUT y.w-llO: DRAH 30,0: DR 

AV 0,-10: DRAV -20.0: DRAH 0,-10 

: DRAW 20,0: WAV 0,-30: DRAH -3 

0,0: DRAV 0,50: PICT y*-10,x*70: 

DRAH 10,0: DRAH 0,10: DRAH -10,0 

: DRAW 0,-lQ 

1030 PICT yM0,»UO: DRAV 30,0: 

DRAW 0,-50: DRAH -10,0: DRAH 0, 
20: DRAW -10,0: DRAH 0,-20: DRAH 

-10.O: DRAW 0.50: PLOT y*50,!tH 
00: DRAW 10.0: DRAH 0,-10: DRAH 
-10.O: DRAW 0.10 
1040 PLOT j+80,*H10: DRAW 50,0: 

DRAW 0,-50: DRAV -10,0: DRAW 0, 
40: DRAW -10,0: DRAV 0,-20: DRAH 



2010 LET li=li-l: IF H=« THEN 

GOTO 1000 

2020 RANDOUZE USR 6.5264: GO TO 

410 

3000 UK 6: CLS : POKE 23624,70: 
INPUT "": UT adr=*0384: 03 SB 
9010: POKE 63718, lo: POKE 63719 

,M 

3010 RESTORE 3100 

3020 READ x,y: IF x=-l AND y=-l 

TBHJ LET adr**0704: GO SUB 9010 

: POKE 63718,lo: POKE 63719,hi: 

POSE 63721.9: POKE 63723.25: RAN 



O3050 

3025 IF mtEYSO"" TBEN RETURN 
3030 POKE 63721, x: POKE 63723,y: 
RAHKKTZEUSK char 



16,25.14,25,12,25 
3900 DATA -l.-l 

4000 POKE 23693,96: CLS : POKE 6 
5013,pll: POKE 65014,pl2: POKE 5 
6064,0: PORE 56065,0: POKE 56066 
,7: POKE 56067,7: POKE 56068,255 
4005 IF plW> AND l02=O THEN PR 
INT AT ll,0;"Zneinal Ka^stai is 
t unmeglich!": BEEP 3,30: GO TO 

4010 LET adr-56000: GO SUB 9010: 

KKE 63885,1a: POKE 63886, hi: R 

4020 PRINT AT 0,0: PAPER 5; INK 



: POKE 

1: POKE 4030 PRINT AT 0. 









,0 PRINT AT 1,4; PAPER Or IRK 
1 ";AT 2,4;" *; PAPER 5: AT 3 
- "; PAPER 0;" "; PAPER 5;" 

BK 2;AT 4,3; PAPER 



; PAPER 0; 

4060 FR3MT AT 7,2; PAPER 0; DK 

4070 LET aS-" 

": FOR ** TO 13: F 
RIOT BRIGHT 0;AT a,15-(a-6)"2;a 
S( TO (a-5)M-l): NEXT a 
4080 FOR a=14 TO 21: PRINT BRIG 
HT 0;AT a, (a-14)"2+l;aS( 10 <21- 
a)*4+2) : NEXT a 

4200 RANDOMIZE USR game: POKE 23 
296,20: FOR a=l TO 20: POSE 2329 
7, a: RANDOMIZE USS m: NEST a 



30 SINCLAIR 
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9000 PCKE 23606,0: POXE 23607,60 

9010 LET hi=TNT (adr/256) : LET 1 

radr-256*hi: return 

9100 IET adr=61984: GO SOB 9010: 

POKE 63718,10: POKE 63719,bi: P 
ORE 63721,17: PCKE 63723,6: RAKO 
CWZEUSR char 
9110 LET adr=61472: GO SUB 9010: 

POXE 6371B,lo: PORE 63719, hi: P 
OJ3 63721,17: POKE 63723,23: RUM 
UXHE uat char 



220 NECTx 

230 FOR x=129 TO 254 STEP gr: L 
ET p*ND*64: IF y( (x-129) /2-3 IK 
EN HOT x,y: DRAW Rmd«2-1,rnd*2 



250 TOR ipI TO 128 STEP gr: LET 

r*WD*80: IF y>V2 1HEN PLOT It 
,y*64: DRAW RRD*2-1,RND+1 

260MESTx 

270 FOR x=129 TO 254 STEP gr: L 

ET y=KND*80: IF y> (255-1) /2 THEN 

PICT x,y*64: DKiUf RND-2-l,R 



Listing 2 



HIMW Listing 2 



10 KflDEB 7: OVER 0: INVERSE In, 

: POKE 23693,56: CUM 39993: FO ffiXT x 

R aKJSB "a" TO USR V*7: REM b 330 FOR x=0 TO 245 STEP 8: PLOT 

: POKE a,b: KEKT a x,144: DRAW 5*RNB"10,1: NEXT x 

20 Mm 1,1,1,3.3,3,6,6,6,14,1 340 PRINT AT 3,3;" 

5,15,30, 30, 30, 63. 59,58,122,118,1 350 ROT 20,156: DRAW 10,0: PLO 

18,214,213,253 T 45,156: DRW 10,0 

30 MIR 123,128,128,192,192,19 360 PHOT 20,152: DRAW 8,0: PLOT 

2,224,224,224,112,112,176,243,18 50,152: DRW 5,0 

4,184,188,220,220,222,126,110,11 370 PLOT 20,149; DRW 7 0- PLOT 

1.85,251 52,149: DRW 6-0 

40 DATA 1,1,3,3,5,5,15,11,26,2 380 PLOT 20,147: DRW 7,0: DRAW 

6,62,53,117,109,239,255,128,128, 0,-1: DRAW -7,0 

192,192,160,160,176,208,216,232, 390 HOT 50,147: DRAM 7,0- DRAW 

172,188,214,90,111,127 0,-1: HOW -7 

50 DATA 1,1,3,2,6,13,59,255,12 400 FOR jp65 TO B5 STEP .5: PLO 

8,123,192,192,160,208,108,179 T INVERSE l;0,x: DRAW UWERSE 

60 DATA 254,182,182,182,187,17 1;128,64: NEW is 

1,239,255,255,253,189,173,171,10 410 FOR if65 TO 85 STEP -b: PLO 

7,123,123 T INVERSE l;255,x: DRAW INYERS 

150 RESTORE 160: FOR 1=23296 TO E 1,-128,64: NECT x 

23307: READ b: PORE a,b: NEXT a 420 FOR jfO TO 127 STEP 4- HOT 

160 DATA 17,64,156,33,0,64,1,0, X,x/2tf4; DRAW 0,20: DRAW 2,2- 

24,237,176,201 DRAW 2,-2: NEXT x 

200 PLOT 0,64: DRAW 128,-64: DR 430 FOR JF129 TO 250 STEP 4- PL 

AW 127,64: DRAW -127,64: DRAW -1 OT x, (255-x)/2»64: DMW 0,20- GR 

*•"•■ AW 2,2: DRAW 2,-2: NEW x 

210 LET gr=.4: FOR x=l TO 127 S 440 DRW 0,-22 

TEP gr: LET y=SND*64: IF y< [128- 450 LET aS-'Tfanter - 1987 b 

x)/2-3 THffl PLOT x,y; DRAW RND* y G. Plietsdi" 

2-l,RWD*2+2 460 FOR a=i TO LEH aS: LET ttfi 



Hi NEW b: HUNT JOrAT 0,a-l;" 



";AT 1, 



i razcr a 



470 Rl 

480 CLS : PRINT "Save.": SAVE" 
b»cAground ,T COuE 40000,6144: FRDI 
T Verify.": VERIFV "bacigmiuT' 
CODE 40000,6144 

490 CLS 



Listing 3 



1 REM > HUH 

TES < 1987 by Gerhard 

Plietsch, StoecfcLnnwg 80, 

8670 ttof/Saale 

10 CLEAR 59999 

20 LET a=10: LET Mis LET c-1 
2: LET d=13: LET e=14: LET f-15 

30 LET liaS=2O0: RESTORE 

40 FOt 1=60000 TO 64900 STEP 1 
00 

50 READ bS.chedsim 

60 POKE 23692,-1: TF LES b$<>2 
00 THEN PRTUT ' ' FLASH l;'Tehle 
rhafte Stringlamje in ";line- G 
TO 32767 

70 LET cs*: LET y=l: FOR x=z 
TO S99 

80 LET p=VAL bS(y)'16+VAL bS(y 
+1): LET Y=irt-2 

90 POKE x,p: LET cs=cs+1>: NEKT 



100 IF CE(>cbedtSUB THEN PRINT 
" PUSH l:"Ftiiler in Zeile ";1 
ine: GO TO 32767 
110 PRINT line;" Oay -t- "; 
120 LET li»=liretlO 

140 OS : PRUw "Save.": SAVE " 
nccde"CQDE 60000,4985 

150 PRINT "Verify.": VERUY "tc 
ode"CODE 60000,4985 

160 PRINT "OKAY.": GO TO 32767 



OOf4CC84009400a40ufalOOc40044COe4 



009eCOae0Obe00ce00de00»O0f0O100 
0110)120013001400150016001720102 
01120122013201420152016201740104 
0114012401340144015" ,6513 

230 DATA "401640176010601160126 
01360146015601660178010801180128 
0138014801580168017a010fl011a012a 
013a01to015a016a017d)10c011c012c 
01_3c014c015c016cflnf!010e011e012e 
013e014e015eO16e0nffO0£cO13f4Of 
f OOf fOOf OOaOf aOf f W ' , 9178 

240 DATS "ff00c01W354f£00ff000 



&aa00aaOfa0cOi5O05S00550354COa*Q 



fOOffOOffOOffOOffOOffOOffOOffOOf 
f OOff OOf fOOf f OOf fOOf f OOf f OOf fOOf 
fOOf f OOf f ODf f OOf f OOf fOOf f OOf f OOf 
TOBf £00f fOOf f O0n08e718f f OOf fOOf 
HMdf 20f f OOf f OOf c03 3f cOf f O0££001 
SMlf 20££00fe0170ab' ', 12551 

310 DATS ,, 0e517£BOff00tO4f0d£2£ 
£00f 1 00d02f Obf 4f f OOf f 00e01607a8f 
B0ffCOe01607a8ff00ff00e01307caf 
f COS f COeOlOOTOSf f OOf f 00e0110788f 
£0OffOOf0OaOf5Off00ft00f008OflOf 
fOOffOOf8041£20fK»ffOCif401i2fa)f 
f OOf f COeflOf TOSff 00" , 11380 

320 DATA "ff00efl0f708f KCffOOc 
t30f30cffOMfOOffOOffOOffOOffCOf 
f OOf f OOf f OOf fOOf f OOf f OOf f OOf f OOf 
f OOf f OOtf 00£ f OOf f OObf 40f f OOf £00f 
f OObf 40f f OOf f OOtf 003f cOf f OM £000 
Of f 3f cOff OOf EQCOOabOOf f f f OOf f 000 



O3503fcfE00ff00cO3fO3d4ff00ffOOc 
02aQ3fcff0Wf00c03f03ecff00£f00e 
035O3M f OOf f 00c03f " , 12489 
390 OATH " 
KOff0Oc03f03ecff00ffCOc035O3fcf 
f00ff00c03f03dc£f0Off00c02a0ff0f 



OaaOOsaOOaSOOfSOOBSOOSSOOMOOSHI 330 DAT! "OCkKffOOf fOCWXnoDabf 



0aaO0a90O55OOf f OOf 5" .7882 
250 Km "O05O00COOOE.5OO56OOaa0 
OaaOOffOMfOOOOOOOOOOaaOOaaOOSM 



OaaOOf iOOf f 000O0OO0cO2a0OaaOO550 
354f COf OOf fOOOOOf 00" ,6282 
260 DMS "fc01005500aa3f80ff000 
Off00O0£f00ff00at2aO354ff00ff00f 
OOf Of COf fOOf £00f c013f 80f £0079320 
05be526006829292929U60eal9eM62 
0elc5d5e5ttee235626003a005b6f 191 
140b419ebelrf06041a4f7eal4f237eb 
112231310f 3cld]1313" , 9641 

270 DATA "cll0d5cHf00ff00ff00f 
f OOf f OOf f OOf f OOf fOOf f OOf fOOff OOf 
f OOf f OOf £00f fOOff OOf fOOff OOff OOf 
fOOffOOffOOffOOffOOffOOffOOffOOf 
fOOffOOffOOffOOffOOffOOffOOffOOf 
fOOffOOfEOOffOOffOOffOOffOOffOOf 
f OOff OOf f OOff OOff 00" ,12363 

280 DATS "ffOOffOOeflOffOOffOOe 
718eflOff00ff0OfbO4df2Off00ff00f 
c033f cOf f OOf £0078841e21f f OOf f 007 
08We51f f OOf f OOKHfOdf 2f f OOf f Odd 
02eObb4ffOOffOQeO16O7a8ff00ffOOe 
O17O7e8ffOOffOOe013O7c8ffOOffOOe 
0100706f f OOf MOeOll" , 11884 

DHA "0788ffOOffOOfQOaO£50f 



f0OffOOf40b2fd0f£OOffO0eflOf70af 
EOOf fOOef lOf 708f fOOf f 0Gc£30f 30cf 

fooffooffooffooffooffooffooffcof 

fOOffOOffOOffOOffOOffOOffOOffOOf 
f OOf f OOf (OOf fOOf f 00" . 12047 
300 DATA "f f OOf f OOf f OOf f OOf fOOf 



340 DATA "ff0000d70Oab£f00f£0Q0 
Oab0Od5ff00ff0O00d7OOaMfOOffOO0 
OatOOdSffOOffOOOOffOOabffOOffOOf 
c0300f f f f OOf f OOf C03E f OOf £00f f OOf 
d02ffO0ffO0ff0OfdO2ffOOff0OffO0f 
fOOffOOffOOffOOffOOffOOffOOffOOf 
f OOf f OOf fOOf fOOf fOO" , 12166 

350 DBS "f fOOff OOf £009f Kief lOf 
f00ff00877Bcf30ff00f£0O8Ue8f5Of 
f00f£00!0550fb0ff00££00807f0ff0f 
fOOf fO0806a07f 8f fOOf f 008O7eOlaef 
fOOff00805801ieffCOff00807dOia6f 
f00ff00806801feff00ff00a07a01aaf 
fOOf fOOSOSaOlf ef f 00" ,12278 

360 MM "ff00307d01d6ff00ff008 
O68Olfeff00ff00807aOlaaff00ffOOE 
05301feff00ffCO807d01d6ff00f£008 
06801feff00ff00a07a01aaff00ff008 
07B01feff00ff00e01ittld6ff00ffCOf 
OOSOlfeffOOffOOfOCMIlaaffOOffOOf 
009817eff OOf fOOflOe" , 12253 

370 DATA "elleffOOffOOf30cfM6f 



fOO£fOOfc03c33cffOOffO0fc03O3ecf 
f OOf fOOf 807O3f cffOO" , 12734 
3B0 DATA , 'Ef00fO0fO3d4ff00ffOOc 
O3a03fcffOOff0Oc02fO3ecff00ff0Oc 
O3503f cf f OOf f O0c03fO3d4f f OOf f 00c 
O2a03fcffOOf£0Oc03f03ecffODff00c 



fO0ffOOc33c3fcO£fO0£f0Oc£30bf4Of 
fOOffOQffOOWttffOOffOOfOOfOffOf 
f OOf £OOS078010ef fOO" ,12355 
400 DATA "fc0300a800013£d)f00d0 



056O0000304c02a00aa000O03O43O75O 



0d5O05501d63O7a0Ofa00ae0102807fO 
Of f OOf 5O114807dO076" , 7725 

410 DATA "00aa0182806f00ed00510 
1568O7a009a0Oa401028O7f COf 500580 
Iaa8075006a00a30102807f00fd00580 
156807e00ti600a50102807f00da00500 
12aS07aOOTaOOaa018280TbOOd500550 
1568O7eOOaeOOa80102cO37OOf 900540 
3accO3d005eQOa3O304",7861 

420 DATA • , a01f00e500580758f OOeO 
0ba0Ca5Of3Ofc03O0ed0O5b3fcOffOOB 
07601aeffOOf£OOfOOfOfEOffOOffOOf 
OW0ffOff0O£f008O7iB15eff00fc03O 



Caa00aa07a8eO3*OO55CO550354c02aQ 
Oaa00aa03ac8OTSOO5T" ,9751 

430 DATA "OOf fQLfeSKaOOaaOOOOO 
1068075005400000103G07eOOacOOOOO 
1328O7f00d800O10lj36807aO0f80O0e0 
102807f00ffO0f5012a807a0O7600aa0 
1828O6fCOsd005101568O7aaO9aQ0a4Q 
lO2BO7f00f5OO58OlaaSO75O06a00a30 
102801f OOf 300580156" , 7584 

440 DATA "8O7eCOMOCa5O1028O7£0 



0d5O0550156807e0Oae00aBO102c0370 
Of9OO5403«cO3d00590Oa30304aOlBl 
Oe50058O758f00e00ba0Oa5Of3Ota3KI 
OaWO5b3fc0ff0O8O76Olaeff00£f0Of 
OOf Of f Of f OOff OOfOOf " , 9020 
450 DMA "Off0ff0OffOO8O7dO15ef 
f(JMcO3OOea00ali3fa)f0Oc0Cl35CO550 
f70e010000sOOaa07aSc020000aXBBO 
354c020000200aa03ac806000030O550 



Id6807a0( 
460 DMA "807f0Off00f5012a807d0 
07600aaO182806f00aBO51O1568O7aO 
09a00a401028O7f00f50O5801aa80750 



Oae00a80102e03700f9",8254 



32 SINCLAIR 



170 DATA "OO54O3aceO3d005eO0a3O 


81a01fe7fed78cb57280bcb5f2801c93 


0000000800003030300" . 952 


3D4i#lfOCe5OO5^758fOOeO0baOOa5O 


e0132fbfdc93e0132£cfdc93e0132£di 


640 DATA "010000008484070000010 


t tot «)300ed005b3f aOtt 00807S01aef 


dc93e0132£e£dc9ed4teii£d3afbfdle0 


00Q848404OCO0CO0O00O3D3030000O0O 


f00ffOOK»fHfOf£OOf33ae8fd3cfeO 


1200305181b3af ctdfe" ,12669 


00002060000058000000100000001000 


32OOlaf32e8fd21d3d6O6O30e0cieo3O 


560 DATA "0120030418113afdliife0 


1O300000100CO000080010OOOO00100Q 


40c0cc51eO8d5c516O47e23£e0Oc«3£ 


120030cl8073aiefdfeOlc00d2600682 


10000008000010080000100000001000 


53afa£d3ce60132eaf d" , 10301 


929292929eb260O6929291911d8d6197 


00000800100000001010101010000800 


480 DATA "OS051520ebcldl040dOdl 


ef eOl 2004ed4bei f dsd43eM dciaf 32f 


0000000000080010705" , 1488 


d2OdfcU52Od5fbc9e5c5d5fe0120052 


4fdcd37t6aa0f6cddl£83af6fdfe032 


650 DATA "000704040484040404070 


Ie0ebl82cfe0220113aeiifdfe0020052 


803cde5f7cd5efB18O3al52f7cddlf8O 


4S4O40484048404O48404B4O4O4S4O40 


12Oedl81c212Oeel817fe0320052120f 


6003af4fd4fc93i4beb",12739 


70404040404040700000000000000000 


11806fe04cO212Oee3ae8fd3c243d2Of 


570 EATS "fdal5tied(d78bac079J*c 


oaooioioioioooooooooioooiooooooo 


ccde0ec3aeafd3ce60133eafddlclelc 


03e0132f4fdc9212W006110el71iaC4 


00000008000000002070204080700000 


93e023H4fd3aebf d32" , 11701 


0ed5303edcbeOec2140M22O3edc9O4O 


oooooooot 00000000003000000000800 


490 DBR "effd4f3aecfd32fMd47a 


6O0flc9c4a8f879£e012<lO5010O0OQc 


OOOOOOOOOOOOOOOOCOf " . 1490 


f32f3fdcd23f67efe0220073e0132f3f 


9cd2Of718e23a005b21005811O158Olf 


660 DATA "000000000000800780000 


dl8O8fe032O04af32f4fd36O43aedfd3 


fO277edbQc9f33aOO5b672eOO3a015t>5 


0O00CO10103MO100000000000100000 


2flfd4f3aeeid32f2fd47ol23£67efe0 


75£152OO67ee610d3f e" , 11122 


CO380000COO80O001040704000600000 


320103adcd73d32dcd7£e0020053e013 


580 DATA '532b7cb520£2ftic9Hic92 


0O08O0W9M0OOO0O000CO000O08O0CO 


2f4M3 6032 1409cll40h40 1001 BedbOc 


1003dll£0d2010003c57e4fcb39blcb3 


00101000080000000800100000000000 


d20£52i40b4iioo4oor- , 12116 


9blcb9fl2cl23130b78bl20ec21£0dl2 


OOOOlOlOlOOOIOOOOOOOlSOOOOOOaOOO 


500 DATA "001Bedb006003af4fd4fc 


2365cc916Olleca0e00760c79d3fe3aO 


OOOOlOOOOOOSeOOOOOO" , 1402 


92600682929292929eb2600692929191 


O5b470OlMdld2OI2152Oeae921d8d61 


670 DATA "020000000707000006000 


ld8d619c9af32f7£d32fS£d32£9!d32I 
afd3itf5fdfe002013dtillcb47204dcb4 


ia9d6m0M13600edb011e0da21d8d6O 
6401acb7f 2804360218" ,10599 




00003030303800000000300000100000 


f2043ct67204lHb5f2O4dc9fe0120160 


590 DATA "06cM72802360123d>4f2 


000O3O0BO018O00000003010000000O0 


Ifei7ed78cb5f283fcb572835cb4f282 


8O2360123cb57280236O123<±5f2a023 


10080010000800000008001010101050 


bcb472821c901feflied" , 11652 


6O1231310d8eblia8d7010500edbOc9f 


60007070000008000000000000000000 


510 MM "78cb47282901f e£ded78c 


3ed4bd8d7ed43ebfdsi4biad7sM3edf 


0000000000300010101 " , 1106 


b4T281a01f tf eed78cb4f 2805cb57280 


acdaM579fe0120O4O60Of)ic9cda8f87 


680 DATA "010100030000000000000 


7c93eai32£7Idc93e0132f8fdc93B013 
2f9fdc93e0132fafdcS3af7fdfe01200 


9feO12O05010000fbc9si4beWd78fef 
£2001041 e0820010579" ,11414 


00300008001800000030000010101008 
00300008001300000000000000000000 


d3aeefdfe00284O3d32eefdl83a3afW 


600 DMA "feff 20Q10cfeO82DOlOite 


50705010600300080008000808000010 


dfe01200d3aeefdfe072B2c3c32eefdl 


d43elfacd20£718c48MlO0O0aO0QO0S 


loioioooooooooisoocoioososoooaoo 


8263U 9f df e01200d3a" , 12456 


coooosooooiinooooocooooooooooooo 


000800000010101D1010101808000800 


520 DAIS "edfdfe07281S3c32edfdl 


00001DODOCO]C<»808001C0000080000 


0800080000001010101" , 2620 


8123aiafdfe0120Cfc3aedfdfeOO28O43 


ooooioioioioiocoooooioooooooio78 


690 DATA "010101800080008000800 


d32edfded4bedf 4260063292529292* 


0010100000000000000C602060830B08 


00107060213000000000000000000000 


b260C6929291911d8«197e£e01eO2af 


0808080800003020206" , 4348 


000O0018O0000CO000O00O1010000O00 


Ud22edf dc9ed4tef Idcdtef 73af 3fdf 


610 DATA 'OTOSOIOOOOOOOOOOOOOCO 


00000000080010103048804030100000 


e012004360218023600ed4hflidaI3ef 


0ffl>«X»Q08O8080000000O0008O03800 


OOOOCNJ00000030101010000000000C08 


7360Oc9260068292929" , 11842 
530 DATS "2329eb26006929291911d 


OOOO00101010301010O0OO1OO00000O0 




0000000000000000000" , 1107 


8d619c9ed4bettded5))edfaaf32£bfd3 


O0O8OOOOO00070O0000OOOOOOGOOO0O0 




2£cfd32fafd32fetd79bb3809280c3e0 


00101010001008000018080000100000 




132fefdl3053e0132fdfd7Sba5BO92S0 


00180000001S0000001 M , 1483 




c3e0132fMdl8O53eO132fcfd3a&fdf 


620 DATA "OOOOOOOIOOOOCOOIOIOOO 




eO120O9O5cddO£7£eO12O31O43afrfdf 


1O100070O0000OCOO8O0T07O6O5O3O7O 




e012009O4nMOf7te0r , ,12276 


0000080WMOfOf00000000808080800 




540 DATA "2O21O53afdfdfe0120O9O 


000COOOOO0O000QCO000CO080O00080O 




cnM0f7feO12O110d3afetafeOlcO0de 


0000OO0O0Of00O000018000008a000O8 




dd0t7IeO12O02Oce9aM3eWdc926006 


0(rlOOCflOOOa00000101010000MOOOOO 




S2929292929eb26C06929291911d8d61 


005O7O70aSO000000D0" , 1727 




97ec9aI32fWd32fcfd32fdfd32£efd3 


630 DATA "000080000101010101010 




aI6fdfeO02O]JdMfcb472O4deb4f204 


0O00180000O800O0000010O01O10CO10 




3<±57204lcb5f 204dc9' ' , 12008 


00001000001000100000180000100010 




550 DATA M fe01201£01feefed78<±4 


00001010101000100800000000080000 




£2S3fcb572835t*5f282bci!672821e90 


M3O5O4OO0700000000O0000CO0O0O10 




lfedfed78cbM282901feMed7Bcb572 


loiraoioioooooowoooooooocooocoo 
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Mhcn^B nde 
















QL-Bucher fur 


Si~H : ^^|3 i 


Freaks 


•** fcrt, ^ rtB * i& Eit SliTErTS 


































SISSHS^ HFSFSi 






Computer- 


^b^^td^'pr^M- 




Ail™ dieetwasSbcrQDOS W^X^^f^ 


Kontakt 


Si»M°*iw*n 




imd ofe Programme™,! in mrf^ ™ ■d^to" JS X 


das Heft mi t den 


li^ausdcmWfafi.e.widuX 




l^rSnonTirlici^^l'j^l- L„ '..,.., ..! .:-. ; . " n "um 


preisgiinstigen 


No^natverbra^hcT,: 1 ''. ':Z 




sche n dre en h ■= 


Kleinanzeigen 


win. 












J 



QL 



Vokabeln 
von Dusi-Software 









Tasword II - 
QUILL-Konverter 



,3ufig den 9polige Sub-I 






SINCLAIR QL 
HARDWARE - SOFTWARE - ZUBEHOR 



51 2-KByte-RAM-Erweiterung 



Druckerparade 

SeikoahaSP1200flS Seikosha SL81 




Tel. (040)/6475557 . on «-i B uhr 



Computer Hams Software Vermel! 



QL 



eintm 0U1 LI, lmpin-hi c\ii • 


=li?li 


1 •%pHis""'E;,; 


,.„,.„., 


Listing 1: Sp 
Listing 2: QL 


;ctruin 


sS-JNKEY 
MO [S-CHRS(C 

960 t$-tSS" ' 

030 tS-CHB5(0 


{«3)J 
) 
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QL 




PEEK und POKE 
im SuperBasic-Bereich " 



..,-,.: hl-H^ 1: fi!)[ i1if Ki|;n ..... |.. J^,,, K(>T 

»vi,U'!i ■mi. ikr Sttiiangi: tr 






:>\ - 



QL QL QL 



pn;IQermo „ 
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Listing 1 



Listing 2 



QL-Software 

RB-BOrofflr Kleinbetrlebe u. Handwerkei: 
Adreasen-, Lagervorwaftung, 
Buchhattung, Lohri und FaMura 

r"" DM295.- 

RB-Buro lau ft aucn aul der engSschen Version! 
mationan und HSndlet-Uste bei: 

Roland Best 

software -hausle 

7951 Tannhaim Telefon 08396/2946 



• DISC-MANAGER • 



E.REITEMANN Tslefor>0211/432e70 
FuilenbachstraBe11 und 069/5 97 44 85 
4000 Dusseldorf30 (nach 18.00 Uhr) 
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QL 



Filterprogramme fur den QL 
mit Toolkit II 



, ... ....... . 


v-l- i-lrii,. lldspiele filr 


.L.^' Hi-L.^L.^I^Ior'iTihu-.li': 


jedeniSchrlljEtiicbzweL. 
























zuiiathu vuni Stack in die R 


















K;i:!jl !):il^,. -.- .- 1 r l: 1 1 1 1 ! I r ■hl.i •!.' 
















Mf.iL' ■■.■!-. Kllll. .V;r.Tl^ll i. I.V 


EinBlkk in die Black B«.\ 






em "mnlioowSrKD Thta" 


,::f":Ki¥i 


ChotiS = 'jA:.!k(.JI>oL:ftO 
hHiIjIkK11.mMiiN,,Opi',|(.ii'n 


^JWWo'rl^ftr'jc™ 


Aul'ruf v,.r. i*ei ] dl-ei-n wurde 




































5-RUsrl— ^filterJ ^ 


' ! " - ■'■!■ ■ '"'' 


■•'il'X\™ Z !!!tM(fcEr' 


Zcchcmaii&chkopiw. 




QL 



H§! f|- ; — - 


Basic-Lader 


^^rr"'--"''"'" 


Spectrum 

User Club 

Wuppertal 

¥ 

Informationen erhalten Sis (gegen 

Einsendung von DM 0.50 Ruckporto) von: 

Rolf Knorre . 

Posttach 20 01 02, 5600 Wuppertal 2 
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Turbo-Fractal 
oder Apfelmannchen 



" ApfelmSnndl en"- Crogiair 






.liesL, mill 


,■1, Cacliwijidif- 


,„ m Prap-amn, lW r<-d.n;r |- 












VI! ^-:,i:lL:i hU:J^IL. El .lull 


















Wd]in s:.- A-^Iitkim l-.. - 














Hiippymus 






d„, t -hfl : >c.<: 






























dH-Apfeln 


















I'jt.iMn-n- 




ftfaHttHflgft. 
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Listing 2 



Der Kleine mltderRIESENLEISTUNG: 
SUPER GLP 




*^Z^ a "'"" a * NURDM4 



"aKC": ¥,U:klnmk 

■.:■■■■'.:■■■. :■ ■ ■ : 



Sinclair QL Computer 

wir kSroicn dH.T}L immsi noch fofcml 

Sinclair QL deutsch.Vers. 



CP/M Emulator 



139,- 



QRam™itiu*™ 6 KmiH>ifc- 

nit 256k ZuMizspcicher 
iufCinria e cnd=.31/f"Di!kcL[r 98,- 

Sinclair Spectrum 128 

iiuisBigerimLRS-Hl 
Midilnurf arc. RGB M omloi-Port., , - 



.. . ■■ 



'id«i Digiliz 
lm IJieilalBJCTcn j 

.IciclizfiLif im SpcichM be- 

LIclcrunE adds IMBen Set* 



SINCLAIR 
QL/Spectrum/ZXBl 



Der Sternenhimmel auf dem 
Bildschirm 






zS,~~ 


:::;. 


ss 


«MU die MOglicbkcir 

it- Hcmispbiirc (Hoii- 


1 











COMPUTER STUDIO 
Kreuzstrspe 13 
Tel. W89)2€7941 












GompjlerKontaktlO-11/sr 



QL « 



Gigachrome, Version 3,00 



.n QL-Kreisen die Figur 5 






uiMluiulirc. inJom msn ("PARI. I 






immmili RE PLACE jelz 



REPLACE fur den QL 



■|j. r ..-,--Ji-U-!l- :'^l- floppy CuamiLlcr d( 


Defrhl 






























Meise QU1L1. ttandaril- thes £il[ aiich liir and 
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A ATARI 

INFOS-NEWS-BERICHTE- REVIEWS-TESTS-PROGRAMME- LISTINGS- ALLES F i)R ATAR-USER 



Hallo Atarianer! 
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Bubble Trouble 




Attack of the Mutant 
Camels 



Frenesis 



*choeiub*rcingrtUe- 








e Sprites R°ifk™. 

Colony 


it 


I: 


erZukiinfE Ionic" i 



ltd* 
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El nfach, aber 
wirkitngsvoll 



TDTTTTl HIERENDDRFPLRTZ 

J-lTH I H 1 a hb eerlih ib 



SUPER TURBO ) 



350.- 



PROGRAMME 



B3B-3V5 3B B1 



DOS-Einsprung- 
adressen 



r (400-130). iJbD mm 






:.,ip i-.u. Kontakt 1Q-11/B7 



ATARI 



"scantronic" - 
Der Drucker bekommt Augen ilHSSS 
























1 tta Atari <u^:- 


.„...,;..,. 


jl-h-.N.I.r illi..e- 


































IVf.fr.iiinu 




J«rt«lg« 


diezum Epson FX 


4 .-,- ,>:,. 


, .1 ., ,. >. 
















::;": 


f:H ; *': 
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10 PRINTCHRS (125) 
K GOTO10 

W,.,i Sic ni'ii Jen Lichlgrir- 



U-U + PEEK (564) 



Berichtigung zum Listing 
"Noch einmal: Plotter- 
Hardcopy"ausCK 8/9-87 





MGIir Berichte, Listings, 
Nachrichten, 
Tips und Tricks fiirlhren 
Atari XL/XE erhalten 
Sie aus dem 
ATARImagaz/n, 
der einzigen Zeitschrift, 
die slch ausschlieMich 
mit alien Atari- 
Corn putern beschaftigt. 
Auch wenn Sie mit 
dem Atari PC Oder ST 
liebaugeln, hier liegen 
Sie richtig I 



Mir isl Qakannl, dae ich diew BasleLlung Innerhalb H Tagar wk 
(Oasts WMamjfsreclit is* gasatflch lmrBeatlvietien.) 



npjler Komakl 10-11 



Hohenflug: SubLogic und der 
Flight Simulator n 
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Computer-Lexikon 



Listing 



rn VerkRiipfun ihJsi Obcrpnifcn ■.nil i 








S-.c emtaili 'l;i- lingual vk-- l | -:'"', h '-i':i'^ ^'"i"' ^' - 1""-" i c I ! ;h : U 


C^ 


Matrix 


ir 


System von Spaltcn und Zeikn, almlicli finer Tabelle. Ein Ma- 
'jredniifcer s-cili Zi.-ii.-hi.-n.-lnr mtl,:m .:r .i.- imierhiUieiner Matrix 
(haufia "fxijpmittcjsujsgibt. Einc besiimmre Anzahl win venika 




Ln^grofle,.!,:.,... ■ Ml. AbBS^B. And. 
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Morfula 1 



MIDI 



• c tikh-.hirmiin.ibli.m^p'n (Mijl-:-.ic ,il- Spviii! 









MEM HUH IJHH gaa 




Nachtrag zu "Disksort" 
ausCK 8/9-87 



■SSII-17+LCI.17+RG) 

+%I:WEND 
■SS«*I7+LG,J*17+RG) 



Neue Q-Nummer: 72 52 / 8 66 99 

rMr\ atari 
DIAB Qp 



KompenrtiiHnWtsefi.) 33.90 39.90 


TftgLivlngDayligfiis 


-.- 39.90 


Head everHeeis 


25.90 39.90 


ftatoOueli 


— "0- 4M0 



^JE/#'' T: 


.-.e^ 


Disk. 


Ultima IV 


-VH 


49.011 
49.00 


Guild of Thieves 


:> —_ 


War Game 

CofistfUGlion Set 


■ * — .— 


49.00 


Pirates at the 
Barftary Coast 




37.90 



jeder Beslellung wird aft sulorl onser neoes Diabolo-Maeazm mlt alien Neutieiten WWW 



& A «-» 



; Software-Bestellschein 



Computer Kontakt 10-11/67 



PS - Der Basic-Prufsummenindikator 
fur alle 8-Bit-Ataris 



T tS' Etaclfiilten' abj™ 


Wic urbeUel man 


Sr^n^-^p' : '--' 


Sptl.atc ^L^Tton 




mi t der I'rufsuitmie? 






















^™m^ri??™ hl T^ 


fZ' p ^d d d fl 


1 hhrl-GdhR 


m^£mm1. 






Piwlfach 1640 














"PS" nktivien. kaiiiidasAbtip- 












len. SamtLictie LiHiin^ in di-n 








Pragrammicr^rachcn Atari- 








Basic und Turtin ba'ii- M. ■-■■:■■ 






Wei-ifie" 'I'ajiL- f,-V.::i vcrt'Liti'n 
















Die iWGite MSglichkeil bc- 

AVlL'-Ei^Eiil'. iislfc :.us .li.win 




5SSS5S 


I*********- 


AktivierenvoiiPS 


MA-ij« e nr. e ta 


taSI&ifc ™o«rer n L™ B L" 


!„V,:^,a|.0ll Tipn-l S:0 [.I 


geschehcn: 


















SliS^mlTSs^ to 


■ ■ :;:.:' : : ;.,.. : . : " : 


"^sr^™^os n / us ™it 


Din. mkdciOpiiini 1 ts-cj- 








Kile iz.B. CHSCK.OBJj la- 


ioiiicn ;.;r.,i. 1st da schun guL 




DOSmAUTORl'VSYS-.in- 












MiiL-li^Wsl^ctK-hitr- i 




















sSs'Ss 




j^a™ 1 ^ 


!1l>ii s-mjiiih sit >.-i:ieii TippFHi- 


Rerfmcreii,^.,. ^ 


S£5S| 


§|H§||| 


siarrc. -.iKTi.rijN a znnS.-lm 


i ; w"',mi' „te-ii ;!=-!! TV 


SS^rS 


Recti!! nebcn de. Zeile cr- 






nu-hVilcr r-iili. foipi en Al> 


unJ RETURN betatigcn. 



! 



cr'!:pp:VNl.-:l',- -.b^ippi. . Si.- 
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'LSRlliWllundRETURN) 













ZZ££?2 








Wicfunktiomcrtdas 




















ei«Vanc*rtc 


sMng) 


ri£ 


















Turin. Busk XI. 








E i n§ . eg =bcn en 


(nur Oivktt IK) 




^fS'^rRF-'^V *v 





Vn.lnalUTlich RETURN) 
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Listing 2: fur AMD 



Die Hackerbibel 




QWERTZ- 
Taslatur 



r I i i: iii i i 1 i i I lf!l 



gramm mit uwtKIYl'Ks- 



ra Dir Alnri mil fdtgenftan F'r 



Ntir fur Diskette \ 



]8g^ 







ATARI 


1 AT™ 


llliliJ 


Nuben Sie unser Angebot ! 

Wir halten standig die aktuellsten 
Aiari- 1 itsl fur Sie bereit. Einfach 
nebertstehenden Bestellschein 
aus\j- ! !?"i Line oao ciowunschte 
Buch kommt ins Haus. 


fc^J 


i ■ ■ 






. 





Blfill 




AJAffl 


~i==~ 




s 


s.-sj~i 







BUCHVERSAND 









r™*™""-" 


ATARI 









- /_' 


llsH-3 



I 



1 



Hi 


pllll 


ATARI' 












Buch- 
Bestellschein 
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Leserfragen 



Rechne,si S ™ 


AW -Infeinms ;■' "'"'■ t : ■■ 












i.whn„y.iu, ,■/.„■,, ,,.!/,",,, ,„. 




.!.:i?r)lf,( u .-„. »v,|.;i>an/H> 














dn Inlitili <fti 7<tL*.'zli'lii/! 




RAM- V.-.i -Ii enerhAa. 






,'nllt<i:i:'l< h' ■?■•■! fVfj''v .•/'.. 


DOSOueUe 




WiebekommckhDOSlfe 




undDOS2 5? 








Villi m-XL-Besiiw. A- 




















■■...,:,..■■ /.Jill. Mn ■,;■, l.'.iCf, hal 




■:■,', ni' S ,-» .,V- M.V«ii™ ?"■ 




Ji, «],.■,; IJf/nifv ::j "fuliren'. 


Kompalibd? 














kcmpatiblr DOS 2 0s. 




Kiiitfer tines WXIihahenei 




l>"'r' Mt-.t! I. ,'■■'" '.'l' : ■>'■ 




























::<,:'(kih^ iti'.'^v^iV.'i'n i -ii/r^.'- 




mjftfi.-SntfllOT- <"V:i. ■>...'■:(,.■■!,. 












/nwmj. ■ 




Kflii/ir un.ttw DjrfJT!'%fj- 


""■ '■'■""'•'"■ .-■''";; Jvl';;" 



Herbc Eallauschung 



Erwcilcrungen'' ^ts wirtt zw Etaroupe&AflWfJ 

rin-.jiV,' W.iLrT'.^ ■.'■■, Hju. .■ji- v ,.^, i , r -y : . ,j..,, .J,T uV-Luk ,\'| #.■ 

;i;jPU"j .ji.i-'r '^L^.T. Ji.'/jY.. 'i-.-'i.' vnjfl^'c. hl r.! <nr I onGkizzwk- 

Sof™<ir> l,'"''.v '.'I" ',',.' .'■'■'."■ n:tll [C't fyt;v?'"aii>':i Lr.l'rl.J'^ 






.'" ill,! .160 Kft'l'- V''>"Jr"7 ,J " f ' wild k-Hu 



gd Junn reerVr vtrgr^n. 4u/ "BO 

fcem-ji ivrnfen nVm Mil" WSto- feng 

I.wt/wtrken naltirllch nichi ttHef 

i'«:hr!Mbatstrn;uingc-;thitS'>i- p'.jbi 






wis i5i eine FoninMiHrnttfung Proerammierproblcnir fy:uji , :iur.i-i-Wm-i,v:„ | .ji«i,- Wm.w»i Ejjjon- *h»i 

■c. (.Wet. Dai *«(!(. mSdieza Mj K i[ c -Grafikcii? "'"' ,mcM "" """'■ fiir""' lit? fo'Beitde Froge trabrigl. 






n^,,,,,,,,,,. .;,, ' MIDI und XL 

.......,..■......,.; , Wer-Routme so anfcgen - e im MIDI Disk F 

Wo. Tem r urul Hmdlu,- ^ f „, 

I'm F Si,l»;- r,,;,., ,,..,..,. -.-:.., 

Vlnnipulation einzelncr : r nan :,-rj,-r >.w; ,U-Roim- -'"'■'''■' -■'"" «■■••»' Si.''"t*'" »»■ ,>,. s ? rat H »« wgropem, 

Zekhcn niditBcfehle i« nl M,JIi.-h,:r ScMrfe mid ^ „.„,„ ube ^ aupli „ ar ml , 

lsr«m#el[di,im TeMnio<1.« /,&4 «;('m-*oi ft*l*e*. *., JJ0 *£ mojjfcft. Wo*,. 

einzufiirbec, bzw. in den Mnlti- SM2 ' Qwo«-fefflSNH*ri«W BSlJM J„ : ,„is, f,^,: Bw fe. 

ml.3r-Mt.dii=(ORA]'HlCS 12 1 i.U.4 WSTART: H Slandari! i.'.:c.', J^. «.■.'.■.■ '..'«- ,;„;„,„, /,>,,„, .„■(,„„ rfuij, p m - 

O 

tMHjav.TBfojMy. „ ; . :;ilii|i| „,..,,,,.„,.. ,,. , ■ Mi I'.iodc. w- 



































Ar.' fNi .■Ini;.'.".',: Ni'^-'L' ■■£/['.' 






!.i:iu!'.Il D?i:;-ir: <:i<; urii f"".A.<r 






f.'T r.V Nl,' fl,- ?.'! l fj..TT. ",T^. !■,■'- 




!,<■: "c-J-i.Ti.lv .■1 u1 , !u i iU .,m..- 


*■■ .■'.-.■!.■;■;. ,j'j.- j" n-vi^.Mr.'T/i l*..- 


,„).., .,.-. .....I,. ,■! ..■»,.„,/, .,. 



Schniltstellen Iiberlisten 

[iSifoi.Et-n.JcInloiiiii.ikMHiia.js 



Q-fakige* V-Nadei-L 
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.. ,:■■, ..■ 



°mbter-PruS'ummtt gcdacht 



R-BcjM weitergefabrt. 






Gciali- iSDi.' 1 

■ix:r Schwisiig 
Hoppy die no. 



••• Atari 8-Blt ••• 



;iufdas Vitrfiiilm lusclilt 






P=Tm37^JS--]d 


mem - atari htufi - mImi (rtfliu - snw 


SpHdy 105 


IF l™^ \ 


SHan Pa™ 


C.pler fiir fltarl^ML/M^ ^^ 


.. ■ 


^ TEL : 612BS=497.S9 



"MicroMon" bus CK- 
Cnmputer Kontakt, 
Heft 10/11-86 






ASSEHBLERECKE 



Flayer-Missile Grafik ganz andcrs 












cr Pbiycr vcrfitcichcr. Tied d 



Listing 1 



100 REM • EFFEKT HIT 

no bek * dipektprograhnierten 

120 REN t PK-GRAPHIK 
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226 GP.ACTL- 53277: 


PRI0R*623 


250 GRAPHICS 2+16 


5ETC0L0P, 4,0,0 


260 SETC0L0R 0,0, 


4 


200 POKE GPRIOR, 1 




300 REM • PLAYERS 


VORBEREItEN 


310 FDR 1*0 TO 3 




320 POKE SIZEPO*] 


3 


330 POKE GRAFPO+] 


255 


340 POKE ■PCOLRO*] 




330 NEXT I 




400 POKE HP05P0,6 




110 POKE HPOSPOH 


H 


420 PDKE HPD5P0+2 


123 


430 POKE HPOSP0*3 


160 


440 POSITION 5,4: 


'RINT »6|"C0NPUTER 


450 POSITION 5,5: 


■RINT lit "KONTAKT" 


460 POSITION 6,7 




470 PRINT Uf-fS' 


SPITZE- 


500 FOR 1=0 TO 6> 




510 POKE HP05PO* 




520 POKE HPDSP0,64-I 


530 POKE HPOSP0*2 


,120*1 


340 POKE HPOSPO+3 


,l60tl 


330 FOR J-0 TO 5' 


:NE*T J 


560 NEXT I 




600 FDR 1-64 TO ■ 


STEP -1 


610 POKE HP05P0, 


4-1 


620 POKE HPOSP0+ 


,=6-1 


630 POKE HPOSPOt 


,160*1 


640 POKE HPOSPOt 


,128+1 



Listing 2 
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Tfl AT1BI C. m „«l.,Ko„,,k™-l1/.7 


'„,„ 1FI .>.,..!, .IF, IFF 


Losung des Wurfelratsels 
aus Heft 8/9-87, Seite 60 


: 


dJ,~" .-SSrSE* 


CTftSl ?FB MB^Mf,, 1^.31 


Lewll 


: m, . 


EiSIeici^tofindet^nbti^AugenHDOll 
kdiK. ^i H <«i mid fcj :■:: n^ i sbiir", L= konncT. 
aim bisiu /."i>if B.i-f :.-■ iiiin.' V™* 1 '" weidea. 


DFS «H,t«B,M4,0 


Level 2 


"""" BBSSKSS! 


'niTilaflsisictiSiii:: um PiniiuineuattiunELslwciibaiulih. 




T ™ l " ,Ar, ™*°° 



AMD erleichtert Eintippen von 
Maschinenprogrammen 



Jut-hi isi 1m Pr.iaip hiiiulcL; ;■ 
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Com p L-ler Kontakt 10-1 MS! 



GRAPHICS-9-Hardcopy S^SSSiS! 

fiir Epson-kompatible S°«E."™l.r» 




An alle 
Programm-Einsender! 



ieder daran erinnerri, da6 eii 

. ■■ ■ ■;■■ -:. ■ :■: . i.i : I ■■■ .■ 

sollte. damit wlr die Programme 
zuriicksenden konnen. 



Listing 1 IPS J 


|| j j™; ; ff :: ;'f' : if 


""issiL- ,.M 
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74 


ATARI 






Computer Kon 


akl 10-11, 67 






^BiSESTOIE 235B 


:,,§* 


4« 162 1 16® 3 32 




Eg 






Listing 2 


IT 




a^? 


S' 






a ^3 — 




ri'SM^HiI?'-- 


SJM. 


a*S.':S:fc:S,.. 


if-se 






:;S'!:SS:KKI.z... 


7,2 * 6 '*£t 


T™ 






4 3Z t 3 ^ 








44 ,^£ 


2 *Ti 






s jea 3 ^ 2 


2488 









POKEY macht Musik 

Tonerzeugung auf den kleineu Alaris 
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FTff 


^n 


lr„ 


Li 

SthwirHung 


^l 





* i-HarmonisAe I 



tuiruug 



i> 



s^ 






BiU3 




altdf: ' >376u 


Frequenz Kauai I 


AUDC1 53761 


OBfVeaatBagl 


AUDF2 S3762 


PaqatmSna^l 


AUDC2 ■ 53763 


Laulstarkc/VeramimsJ 


AUDF3 , 53764 


AaqHmKauit3 


AUDC3 


■;-'v 


Lsursisrlce.'VereerrungJ 


AUDF4 


i.1766 


FiequenzKanall 


AUDC1 


3.1767 


l.,i ! inr;=rks.'Ver7*ming4 


AL.DCTI 


W7M 


KoatraliregiBH 


SKCTL 


fflTB 


J" MBfc ™« 









Bilrf 


™: , 










s"~ 
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Bild5 


_ 


i etflir 




000 





Z£;"'f s " 


5.17-Po!y 


OKI 


!,6 ■ 


Knatttrn 


5-Polv 


010 


4 


Dri.hnei, 


5,-1-Polv 


m 


* 


iuMtaai 


17-Poly 


i»i 


10.14 


reins! Ion 


k c i nt 






-— 





Blld7 




Note 


1 2 3 4 S 


»*» 


i 


i 


76 


1 





BUd6 




AUDCTLBit 


Funkti.Hi.blkJJitgeust 


" 


ShSI'^™^ 




k 1 kanal-'wd 


2 




3 


^BB^er*TfktfX™ ™ K»naU 


4 


^M^^.UI. 




SUM Tit tftwiuenz Kanal 3 auf 1 .79 MHz. 


6 


Sel 7E TaHttrequHi z Brotliuf 1.791pffll, 


7 


Wandle n-Bit-PoIjsind-Bit-Polys. 



wandcto (Dilil 71. L-bor ila:, V» 



Listing 1 



Listing 2 



Listing 3 



Listing 4 



ire: 



%£B 



Listing 5 



Listing 6 



Listing 7 



Listing 8: Fur MAC/65 







* 50 HZ-INTEKKUPT *X* 


0110 


;*** SF1ELT MUSIK. *** 






C J. PISCOL FIJEB *** 


0130 




! COHPUTEB KONTAKT*** 


0135 
0140 
0150 




* HIT HAC/65 


*** 




. ORG $0600 


PAGE 8 


0160 








0170 




-MACRO SOUNE 




0180 








0190 


HI 


LDA NULL,Y 




0200 




BEQ 53 


0:IGNOBE 


0210 




CMP S*FF 


*FF; EEPEAT 


0220 




BNE 52 




0230 




LDY S0 




0240 




BEQ SI 




0?5fl 


HV 


STA X2 


AUDC H 


0260 




I NY 


Y-Y-tl 


■ar:7« 


13 


STY Kl 

.ENDM 




essi 


NULL . BYTE 


VABIABLEN 


0292 


Y1 


. BYTE 8 




0293 


IV 


.BYTE 




02S4 


VA 


.BYTE 




0295 


T4 


.BYTE 





;ANZ. ARG. 
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0320 




FLA 






■- : 




ST A %3 


I V 1 — i 




0330 




PLA 






0340 




5TA XI 


;aiid: 




0350 










1 ■ ■ 




STA X2*5 ;PTE 


HB 


8370 




PLA 






0380 




STA 5S2+4 ;PTR 


LB ae 


0390 










0408 




.ENEH 






0410 










,-■:..- 


INI 


FLA 


UHfl 




I ■ 




LDX # >STAET ;HB 




'Mia 




LEY N 


STAET ;LB 




0450 




LDA #7 


;VEKTOSNR. 


0460 




JHP JE45C ;SET 


WVBLKD « 


0470 












START : 


INTERRUPT 




M1 


SOUND 


Y 1,53761 




0500 


HV, 


SOUND 


Y2. 53763 




0510 


m 


SOUND 


Y 3, 53765 




0520 


H4 


SOUND 


Y4. 53767 




0530 




JMF $E462 




0540 










0550 


i:hi 


SETCH 


53760, Ml 


Yl ;GQ! 52 


0560 


(.'H> 


SETCH 


53762, H2 


Y2 53 


0570 


!!«;- 


SETCH 


53764, K3 


Y3 5 . 


0580 


ITIW 


SETCH 


53766, H4 


Y4 55 


0590 











a_« 



Listing 9 



* HUcLLKimENPDUTJN 






l;\M;1llim!M;mi|gl«i 





PUBLIC DOMAIN 

A12 £K££ssr££e'5*-~-" """*•""''* in _ 

—/i IV/. 



A13 



„ , jede Diskette DM 



PD1 assa-sassr™ 

PD2 nr — 

PD3 ^====— " 

PD4 CTl ™— ~ 

PD5 msasa — — —~~r 

PD5 sEsnKs£s=£^£T^t'-^2Z 

PD7 me-- 

PD8 e»~-===— «*» 



PD-B< 

BittellsfemSiem 


;stellschein 

rfolgentle Pubiic-Domain-Software: 



















































Rocket Man 
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IZM. 



fr£D 






a^T 



KB 



' &2L 
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4. 3 2.8 7 173 41 e 2ei 19 199 14a .49 14s 145 154 MM 146 1.1 7 




SilK'Sf. :".,..,.,„, ,1., ».=.!..."'' !i!»'Ss'"i!i, , i;!li»,».«..»s,m"*' 


,.;,. s ;™ . ■«.• ...a.™ W« ^lS=»->r,i?i"5.' e ,?iT..4,»,^.. ,=,=.,,.,. ,=,=. !-- 


*s 


SilS'wS ■«,...„,.„.=, ■«7.„...a,2 ,ll:£ %SUtK£Kl4>.n.».iM.>' 


Hi- 




3?iIs 2 BL; l3 h' ZV 'rt' !3B ' 9e ^ci ^^ai^iea tea'^i^'sa'^ea'tee^ys 




3138. ^ATA^e..^..^., 12,3^16^24.78.96 . ISS, 17. «»••'••*!» ?£ n( . .L. * 


es. 








«t 


s".".".......^^....^,.,...^ i^i-iv^'T^&xxiii".^ 


it". .;".......,.,.2.,.,,..2..,..» , * M .:if.';a.:i2:;2.S2 , ..;2., , "i"- z:5 ' a . 


EZ 


Si IvH^.'. : r J ?ii.v-» li~ -THrES 1 ^ --" 


Sirtvlil L : i : A",;:> IS E •*« ; ii asfti ,™ s 




^sasasa.sasaar g g £ggBS@ s 1 




S&a'aATA a a a 8 a 94 4 a 12a 33 32 ^ slesa MM ala^.^slllllt:!!' | 


A™ >.» ................ ■■....a, ,., «" Jig ;;;; &M:S:S?;KiS?:S | 










Bi,. = '.i-;;';:;:S:s,, 2 ,„,2„,.e.,. a .,„'"" s™ sis SiKSjjS:"*"-'" \ 


bssbxZc::.:^ h ::i ::;:::ri.::::i::.:;.r s 


B 




:, MONITOR XL 



:N MASTER 





Spezia 


rtalen-Bestellschein 




=fer 


■ 




jgg*. 




§§L . 


: 


ssssasasr 




Sr"""^- 





ATARI 
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IS: PL 

' Bl£L 



TOPPROGRAMM 




Im Spiel "'Rocket Man" kbnnen Sie IhrGliick 
ills Cryslalcrnter auf dem ungemritlichen 
Planelen Pyrados versuchen. Esist kerne 1c 
; Aufgabe, die Sie dori crwartet. 
Dcr Autor dieses Programms hciBt Bcrnd 
Mlillcr. Er ist iy Jahie all irnd befindet sich. ira 
3. Ausbildungsjahr /um Energicanlajiendtik- 
troniker. Dcr Redaktion isler kc-Ln Unbekrrnn- 
■ mchr. Scin Spiel '-Con lb /ton" wurde im 
ATARI magazin 3/87 als Topprogramm verbf- 
fentlicht. 
Unsei Autor kaufte vor ctwa diei Jabren e 
.cd Atari 800 XL mil ProemmmreconiVr. At 
der ioifiinsiliciier Verargcrung iiber die Vei 
nachlassigung der kleinen Ataris durch di 
Sofrwa rv.fi mien unMand i.l n i m die Idee, sellv 
Programme zu schreiben. Die weiteren Hob- 

,'on Bemd sinil neben scincm Computi 
Handball, Tennis und Musik. 



PROGRAMMSERVICE 



Jede Kassette DM 16,- 
Jede Diskette DM 20,- 



FREE AUSWAHL 

40,- 
50,- 



Oam 3 Kassetten nach Ihrer Wahl 

Pack 



3 Disketten nach Ihrer Wahl 



AATARI 



Interscripi (3'S7]. TOM teas 13/B7). Trapfea (3/B7y 

er I9/B7J. D'U-Tsswc-d I7/B7], FWH-Ustlng (7/87) 
■i-^-i '.v.;.-:. •3.c^.'=H:?r]?r. 7.0/;. At>: l-3=- - i? 



i), 'Ml Dl-Diak-Flo^arrm (1 1 /Be). Mi 



TI99/4A 



«8H.E.R|- (7 87) PI nr 



iinczlairr 



BESTELLSCHEIN 
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99/4A 



Llebe TI-Freunde! 



Fontwriter 



biete Kind En^ i -i-ii^-.-^r-.-i. 1 .: . .. 



man Instances (kleinc 



Computer Kontakt 
12/1-1987/88 
erscheint am 

30.11.87 



Anteitung in Engtisch. die 1 







FDNTURITER DEMQ 




i$ ^f 


^p ^# 


<¥ 


<$ 


JN^"^Scku«il6e 




— r£ 


™™ 


Jill 


~r**~ "~ 


- 






3U£g SckwclSe 






3U>i( Sckuxii&e 


.. ,. .....,,., .„.,., 










Und es geht doch! 



1: CPLLNK fur jcdermann 



TI-Software-Hitparade 
























crmitlelt, das am 10. Oklober dort slatlfindel. 


1. War-Games 


(7) S.AS 


2. JoyPaintW 


(1) A,AS 


3. TI-Artistll 


(3} A,AS 


4. AxelF. 


(5) M,XB 


5. Die \1 limit* 


(-) S,AS 


6. Micro-FinballD 


(6) S,AS 


7. Rapid Copy 


(2) A,AS 


8. 4A Flyer 


H S,MO 


9. XB-Golf2.0 


(9) S,XB 


10. DM10003.5 


(7) U,AS 


Dti (iiesrifLi-c l"ie\viiinsr dcs iiUKuiirepakeles aus 






GUnter Fort-rig, GroBOcckci % 13511 F 






ere Adressc. Ucid 


wtnn 1 hr nach Bremen komml . besuctu mt 








Depl. Allgemera + Software 








Kiiil -Marx- Alice 18 




5000 Koln 71 





Viclcn Tl-Usem is! immer 




@ ,i3Li (iSOM-J* 


odc( alier Sic hmtcrlsscn sis in 


muB auch dieses Repute! nidil 








Rti ;Vv;';,,,! >hjEi.i'i urii' vai- 










[EinHnisihDSJ-iKWI.washLor 






























































lul^zi dies konkrel hat. Dana 








































c vaiiieren die 














































































Vlcisl i=i i( war Einc Gi-dukls- 
















Dei Workspace- 


































■ Jetzt abcr zum Wiiii^icri 










Punkl dcr ganzm Cchii-liic. 


































pre rmi 









;s Rllckspnine^ Pvnk , v 
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QPlJ @RUECK auf : 



RAUSCH 



NEUES KONZEPT - HEUES PROGRAMS! 



NEU: Technical Drive Book 

Die logischa Fortsetzung zu "TI-INTERN" ist da! 
Jedsr, der auch in Zukunft mit dem T1-99/4A 
amsthall arbeiten will, benatigt dieses Buch. Es 
Bremen zum ersien Mel in Europa vorge- 



liiis.u.ji 



nur DM 59.- 



Am 1 0. Oktober 1987 finden Sie uns aul 
temationalen Tl-User-Treffen, welches 
Bremen stattfirwtet. Wir bieten uiele At 
Ein Basuch lohntsich bestimmt . . . 
Also- auf Wiedersehen in Bremen! 

Solort anf ortfern : 

len TI-99/4A-Kalalog r 
Programm erhalten Sie gegen DM 1 .- ii 
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Zweites Internationales Tl-Treflen In Bremen 




LEO» COMPUTER CENTRE 
Dsr greBte Tl-99/4A-Spoilall*t In Holland It 
fort jotet auch Man Deutschland. 



EmnsEmsna 



4A Flyer (FIub: 



DM 69.- 
79.- 
99.- 

Ti-Multiplan-Paket DM 1 75.— 

Editor/Assembler-Paket DM 99.— 

Tl-Artist DM 69.— 

Computer War «m oiskenej DM 75.— 



a Schnapps-hen die Munich 



SelliinmiiiiiJIicli ■>■■< 
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Tl 99/4A 



Uber das Speicherformat verschiedener 
Grafikprogramme 



;■;'! Bjr1iir.» Knnlzl obi-nfalli ■) 



(VM-RAM): 

em Byte dieser sogeiumuen 

('■jisl-ii- ,. ,1,. ,riT iPtinkl-j 



' dc5 ~ Greal-Lakes-Software gehl 



*> Tl 99/4A 



Computer Kantant 1D-1 1/B7 






•^ N-(Zl->60}.: 



Aj^-Miri-Griiikriikele 






oLl-ir:ii:ilirik:L- ii: . L I'^c k r.'l 1 1 



ai Worn (Tier Byte 






Ktmcinlc gtjproEjamm ©COMPICT if 



- SjiciLllfEplaG >5F L-ri;.!.!. (s-CCJMPKn ir 



ilciplilcation del Diffe- 
del (durch Sub Irak- 



Plagiajius laBt gruBen! 






Vor einigan Wocrier, erhiclten wir einen 




f.on 






































































MoelJtherweise hat«n inch cinigc andc 


cLrcrd 


eabc- 


























































nd^N* 


.h:.fl 


rechte besitzt. In bcsmdcicn Fallen lass 


S Wit UK 


llil'i,! 


audi ei:ie^diiiftliL:li£Erk]aninggcbcn. 






























wuflt, daB as aich urn cine OherseliUilg h 












hamjchen Q^at^iU to^Mdern^irfa 


ridTv™ 


w- 


te B trtx a C! B ™ H *™ 


ndsiich 


nZu- 


Trotzdem mussen wrr sines zuzeben. So 


theFehlo 


wer- 


bci kciotr ZcilschfirienredskUon mOglich 


die gam 


aos- 










sliphtv. 















Sommerspiele 

Das Spiel iKsrtlu avs Her 
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i^M ** «— .KtodhOgfcm.* 


110-Mclcr-Hiiidcn v ■ , n „,-i,, „h,«™ ,)*.-h.. 




10 REM ******:t**tH*l ******* 


S:*™"- EEE**-™* 


41 REM ********************* 

[BO ACCEPT AT(13,2BlSirEtllUHLIEfiTEC-123->: AM :: DISPLAY AT(5,1)BEEP ERASE ALL:" 
BITTE DIE INITIALEN EINfiEBEN 1 ' :: DISPLAY AT <7, 2) ! " IHOECHSTENS 3 BUCHSTABEN) 

220 DISPLAY ATC10+R3, 31 BIZEC3) : SL»<R3) : ; POP I"l TD F01R3)n CALL SPRITE(«32-R3* 
3-1,92, 16,73. RCI»0,57-i-faJ II NEXT I i! DISPLAY ATI 1 1 , 19)BI ZE<3) :SL*tR3> 


24(1 CALL S0UND(5O0, 440,5,-1,5): : FDR 1 = 1 TO 750 il NEIT 1 I: CALL SPPITE(4H , 96, 2 
270 CALL KEY(0,H:,S): ; IF S THEN 2B0 ELSE T-T*.3 :i DISPLAY AT C24, IB) I USINS 140:T 

310 IF Ul=tO0 THEM 320 ELSE Wl = 100 II CALL CQLOR<lt2 T IS) I e GOTO 290 

350 IF ER(R3, i)jQ ri-.E'-i Ep (R3. A > =■- 1 : : HAN=MAN-1 
370 NEXT R3 II IF MAN THEN 410 ELSE 1060 
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43C U - 7 

460 CALL PATTERNS, 10O>;: CALL KEYf «, K, 3) : : IF K=32 THEN 500 ELSE tF S=l THEN ■J 
=40-<40-Y>*A ELSE V=40- (40-V) *B II IF V<3 THEN V=3 

CALL NOTIOW(»l ( l r Vl(jll NEIT I : : CALL MOTION Ittl , 0, 0> 

55o'cALL SPRITE<»I r 10lJ,2,lTi^,xi+e>J: ' IF X > I 3=> 1R Wi=3S.5 THEN 610 

610 ER(P3,S2)i-i :; DISPLAY AT< 1 1+R2,21)SIZE<5> . ■ FOUL" :: IF NA-0 THEN DISPLAY 

3-1,92, IS, 73+R3*S,57-HtB>: : NE'T I :: DISPLAY AT 1 1 1 , 1-91 SIZEC3> : SLS(R3) 


670 CAM.. SDUNDC50i:C')'10,'i."-l.Vi:; FOR 1=1 TO 750 :: NEXT I i: CALL SPRITE (#1 , 9E, 2 
K=22 THEN 790 ELSe'lF S=l THEN V=40-|40-V1 *A ELSE U'40-(40-f>*B := IF V<3 THEN 

ALL CO[NC<»l,ll2,a,S):; CALL M0TiaN<*2,O, -V/ 1 . 5> : . Uwt.04 : : IF 1=0 AND Y=0 TH 
780 CALL MaTI0N<*2,0 T 0>i: CALL PATTERNS, 40> = : CALL DI6TAN.CE<#1 ,*S, *> - - *=SOR<X 








Tl 99/4A 
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Tl 99/4A 



Listing-Printer 28X2 



i. (Dim 



An.'ur.i::- 






fP-RAM gelddcn. da* Byre Mr Hvre aus riem Spdcricr 






Zur Arbettswetse 



TI-Basic-Listing 

1 go | ^ ******************** *** 



.ISTINQ-PRINTER 
2BK2 



¥*****1 :***.** *********** 

* BY EDGAR KLOEPFEL * 

* QUILLERBLICK 3 * 

* 3501 GUXHAQEN * 

* TEL 05565/1692 * 
*********************** 

* KONFIGURATION: * 

* - (CONSOLE * 

* - 32K-RAM * 

* - CS1 * 

* - RS232- odei- * 

* CENTRONICS- I NTERF.* 



350 CALL CLEAR II DIM F*(12B 

),YS(1205: : T,X=0 

360 FOR [=129 TO 255 :: READ 

A* r: F«(I-12S)=A* :: NEXT 
I :: CALL CHAR ( I 1 1 , "440O3B44 
97, "44003B44447C44 



IN13-PRINTER 23X2 



390 DISPLAV ATO.l):"* 

******** 

M.i i. : > if i : >.. a ■'! !~ ■: 

*" 1T(14,7):"EINGAB 
i DISPLAV ATC17 



E POINTER:' 



410 FOR 1=1 TO ■ 
TC16,3+4*I)SIZE 
UMERIC)BEEP:ECI 

GOSUB 810 
420 EA=256*E(1J1 
6*E(3)+E(4)-3 
430 DISPLAV AT(1 
ST[NG HAT "J CAA- 



FA)/ 



440 DISPLAV AT(14,1):" DAS 
KOMPLETTE LISTING ZU DATE 
NSaTZEN VERARBE I TEN? " :: CAL 
t L i HCHAR(17.16,74):: ACCEPT t 

<>"*■" AND A»<>"N" THEN 520 

450 QOSUB 910 

46(1 DISPLAV AT(14,2):"ERSTE 



, 00 TI99/4A 
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ZEILE LETITE ZEILE" II ACC 

EPT ATC16,2>SIZE<S)VALIDAT£< 

NUMERIOBEEPiEU):: ACCEPT A 

TC16, 16JSIZE<5)VALIDATECNUME 

RIC)6EEP:EC2;i 

470 IF EllXI QR E(1>>E(2)0R 

E'2>>32767 THEN 460 
480 FOR I=AA TO EA STEP -4 . 
■ CALL PEEK<I-65536,A,B,C,D> 
■: IF 25&*A+B>E<1>THEN AA=I + 

500 FOR I=AA TD EA STEP -4 : 
: CALL PEEKa-65536,A,B>:: I 
F 256*A+B>E<2>TH£N EA-It-4 :: 

GOTO 520 
510 NEXT I 

520 CALL CLEAR :: CALL CHARC 
97, ,, 0O00O038447C4444 ,, ,Ul,"0 
00 OOO 7 C 444 444 7C *' ) 
530 OPEN *1:"RS232.BA=4S00.D 
A-B-LF" 

540 FOR t*AA TO EA STEP -4 : 
: p=ABSCI-AA-4)/4 ;: CALL PE 
£K t 1-65536, A, B,C,D>: : Z*=3TR 

*<256*A+B)& 1 t*l ! ZEILE 

NNUMMER 

550 F=256*C*D :: CALL PEEKCF 

560 FOR J=F TO F+A-l :: CALL 

PEEK[J-65536,B> 
570 IF B<32 THEN 660 
5SO IF U<>4 THEN 600 
590 IF B=i83 THEN U^O :: GOT 
O 600 ELSE GOSUB BOO 
600 IF B<127 THEN Z*=Z«&CHR* 
(B ,.. u.T=0 :: GOTO 660 ELSE 



620 IF IK>2 THEN 640 

630 IF B-130 OR B=1B1 THEN G 

OSUB 800 ELSE IF B>179 THEN 



U-l 



) IK>; 



I IF 



640 IF T .. - 

B<179 OP BM85 AND B<190 OR 

B>201 THEN GOSUB BOO 
650 Z*=ZJ*F*iB-128)!S U"l I! 

T-0 It IF B-1S1 THEN U=2 EL 
SE IF B>1B5 AND B<190 THEN (J 
=4 ELSE IF B<179 AND B<>131 
THEN GOSUB BOO 
660 GOSUB 790 :: NEXT J :: I 
F ,.= 1 THEN I»»2*fcCHHtt3»>*1 



U,T,X=0 
670 FOR M= 



TO 



ITCLEN<Z*)i 



710 CLDSE #1 :: END 

720 FOP N=l TO 60 : : IF Y*(N 

> = ■'" AND Y»CN+603'"" THEN 71 



730 PRINT Nl:TAB(a>iV*<N>;TA 

B(411 ! , 'I" i TAB':47>;V»lN+60)J!iC 

HR*<13)S.CHR4ilO>: = : GOSUB 79 

: i NEXT N 

740 SE=SE+1 !i PRINT #1:CHPS 

flOI;CHP*C10>| 



FOR 



750 I 



•;SE:" -" ii v=o : 

1=1 TO 10 I : PRINT #1 
D:: NEXT G :: RETURN 
1 B-198 GOTO 7E 



78 



760 ZS=ZS&CHR*<34>: 

: U,T=0 :: X=l :: GOTO 660 

77o'j=J+l =: GOTO 660 

7BO J=J+1 :: CALL PEEKtJ-655 

36,B,C>:: ZS=ZtJiSTR*f 25&*B+C 

)l! J=J+i :: T,U=0 :: GOTO 6 

60 

79d CALL I EY".\I: .S>=! IF K-l 

3 THEN 710 ELSE RETURN 

800 Z*=Z*fc- " := T=l II PETU 



NEXT 



: !> re 



820 DATA .ELSE,!: , !,IF,GO,GU 

TO, GOSUB, RETURN, DEF, DIM, END, 

FOR, LET, BREAK , UNBREAK 

830 DATA TRACE, UNTRACE, INPUT 

.DATA, RESTORE, RANDOMIZE, NEXT 

, READ, STOP, DELETE, REM, ON, PRI 

NT, CALL, OPTION, OPEN 

B40 DATA CLOSE, SUB, DISPLAY, I 

MAGE, ACCEPT, ERROR, UARNING, SU 

BEX I T , SUBEND , RUN , L I NPUT , , , , , 

B50 DATA THEN, TO, STEP, ", ",», 

!,),(,&, ,OR,AND,X0R,N0T,=,< 

S60 DATA y, ■*,-,*, ',,.,, .EOF, 

ABS,ATN,COS,EXP,INT 

B70 DATA LOG,SGN,SIN,SI3R,TAN 

, LEN, CHR*. RND , SEG*. POS , VAL , S 

TPS,A5C,PI,REC,MAX 

980 DATA MIN.RPT*,,, ,, , ,NUME 

PIC,DIGIT,UALPHA,SIZE,ALL,US 

ING, BEEP, ERASE 

890 DATA AT, BASE,, VARIABLE, ft 

ELATIVE, INTERNAL, SEQUENTIAL, 

OUTPUT , UPDATE , APPEND, F I XED, P 

ERMANENT , TAB, tt, VALIDATE, 
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Bausteine des TI 99/4A 



\Drm enlsprixhcnilen S|Xl:i- 



: voltaandig. Djlaimnit 






'S" Die Be,K™,n 6 d eS TMS b=to 
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Computer Kontakt 


Ausgaben 


12/1 1986,4/5-12/1 1987 


Anzahl der Hefte 


6(s.o.) 


Seiten 


696 


Buchstaben, Zahlen, Zelchen 


ca. 800.000 


Bisheriger Preis 


DM 33,- 


Kennwort 


6aus6 


Porto 


DM 0,00 


Preis fur Verpackung 


DM0,00 


Preis 


DM22,- 


Druckfehler 


Nein 




22 Mark 



Besteilschein 



Liefern Sie mir bitte die 800.000 Buchsla 
ben, Zahlen und Zeichen wie oben ange- 
geben zum Preis von 22 Mark. 
Scheck liegt bei. 
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strode 45, 8500 Nurnberg 80, Tel. 0911/288286 



